Dim oWSH, oExec
Set oWSH = CreateObject("WScript.Shell")
Set oExec = oWSH.Exec("%COMSPEC% /C chcp 1251 && DIR /B /S C:\h*.exe /A-D && Exit")
MsgBox oExec.StdOut.ReadAll

Set oWSH = WScript.CreateObject("WScript.Shell")
Set oExec = oWSH.Exec("cmd")
With oExec.StdIn
    .WriteLine "chcp 1251"
    .WriteLine "DIR /B /S C:\h*.exe /A-D"
    .WriteLine "Exit"
End With

'MsgBox oExec.StdOut.ReadAll

Line = Split(oExec.StdOut.ReadAll, vbCrlf, -1, 1)
For i = 7 to UBound(Line) -3
    MsgBox Line(i)
Next

Dim fso,mySet,myDir,st
Dim s()
i=0

Dim regEx, Match, Matches, regtxt
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

mySet="*.fb2 *.bin *.cue" ' Список расширений, которые ищутся

For Each m1 in Split(mySet," ",-1,1)
    regtxt = regtxt & "\." & m1 & "$|"
Next
regEx.Pattern = Left(regtxt, Len(regtxt)-1)

myDir="c:\123" ' Путь для поиска

Set fso = CreateObject("Scripting.FileSystemObject")

Sub ListFolder(curDir)
On Error Resume Next
    For Each f1 in fso.GetFolder(curDir).Files
    If Err.Number = 0 Then
            If regEx.Test(f1) Then
                ReDim Preserve s(i+1)
                s(i) = f1.path
                i=i+1
            End If
    End If
    Next
Err.Clear
    For Each s1 in fso.GetFolder(curDir).SubFolders
        If Err.Number = 0 Then
            ListFolder(s1.path)
        End If
    Next
Err.Clear
On Error Goto 0
End Sub

ListFolder(myDir)

For k=0 To i-1
    If Len("Количество файлов: " & i & vbCrLf & st & k+1 & ") " & s(k) & vbCrLf)<1000 Then
        st=st & k+1 & ") " & s(k) & vbCrLf
    Else
        MsgBox "Количество файлов: " & i & vbCrLf & st
        st=k+1 & ") " & s(k) & vbCrLf
    End If
Next
 
MsgBox "Количество файлов: " & i & vbCrLf & st

Function xxx()
    Sub yyy()
    End Sub
End Function

@Echo Off
CHCP 1251
DIR /B /S C:\*.txt;C:\*.jpg /A-D > log.txt
Pause