Проверка папки на наличие в ней файлов

Set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder( "C:")
rec(folder)
 
sub log (file)
    ForAppending = 8
    set tx=fso.opentextfile("D:\log2.txt",ForAppending,true)
    d=right(file.name,3)
          if d="exe" then tx.writeline file.name & chr(9) & chr(9) & file.path
    
    tx.close
end sub
 
sub rec(folder)
      
    for each file in folder.files
        log(file)
    next
    For Each subfolder in folder.SubFolders
        rec( subfolder )
    Next
end sub

Function FindFiles(ByVal objDir)
  Dim colFiles : Set colFiles = objDir.Files
  Dim colSubs  : Set colSubs  = objDir.SubFolders
  
  For Each strFile In colFiles
    Dim strExt : strExt = LCase(objFSO.GetExtensionName(strFile))
    If strExt = "exe" Then
      arr(i) = strFile
      i = UBound(arr) + 1
      ReDim Preserve arr(i)
    End If
  Next : Set colFiles = Nothing
  
  For Each strSub In colSubs
    On Error Resume Next
    FindFiles(strSub)
  Next : Set colSubs = Nothing
End Function
 
With WScript.Arguments
  If .Count <> 2 Then
    WScript.Echo "Usage: " & WScript.ScriptName & " <path> <log>"
    WScript.Echo ".e.g.: " & WScript.ScriptName & " C:\ E:\log.txt"
    WScript.Quit(1)
  End If
  
  Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
  Dim objDir : Set objDir = objFSO.GetFolder(.Unnamed(0))
  
  Dim arr()
  ReDim arr(0)
  Dim i : i = 0
  
  FindFiles objDir
  
  Dim objLog : Set objLog = objFSO.CreateTextFile(.Unnamed(1))
  objLog.WriteLine(Join(arr, Chr(10)))
  objLog.Close
  
  Set objLog = Nothing
  Set objDir = Nothing
  Set objFSO = Nothing
End With