VBA: How to translate this cmd command to VBA Shell Code

Question

I want to use the below Command-line in VBA Code, the command is to get all .pdf and .docx files recursively and runs just fine in CMD

dir /s *.pdf *.docx

Now In VBA, have the below, which is printing out ALL files recursively and not the specified extensions

Sub Run()
    Debug.Print ShellRun("cmd.exe /c dir c:\ /s *.pdf *.docx")
End Sub

Public Function ShellRun(sCmd As String) As String
    Dim oShell As Object
    Set oShell = CreateObject("WScript.Shell")
    Dim oExec As Object
    Dim oOutput As Object
    Set oExec = oShell.Exec(sCmd)

    ShellRun = oExec.StdOut.ReadAll
End Function

Super Symmetry · Accepted Answer · 2020-07-17 22:03:12Z

2

Try this

Debug.Print ShellRun("cmd.exe /c dir /s c:\*.pdf c:\*.docx")

Edit: Following comment

You need to run dir /s PATH\*.pdf PATH\*.docx no space between \*. Also PATH should be repeated for both pdf and docx. However, in your code you had spaces and you also had the positions of c:\ and the flag /s swapped.

edited Jul 17, 2020 at 22:03

answered Jul 17, 2020 at 20:13

Super Symmetry

2,8851 gold badge9 silver badges17 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

AliAlnuaimi Over a year ago

Thanks it's working fine now! Mind explaining to me how does this work briefly so i understand it better?

Collectives™ on Stack Overflow

VBA: How to translate this cmd command to VBA Shell Code

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related