[Ramzes_]

Код:

'--------------------------
Option Explicit
'--------------------------

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Dim root_folder
Set root_folder = fso.GetFolder("G:\Temp")

Dim output_str
output_str = vbNullString

'--------------------------

Call list_all_childs(root_folder, output_str)

'--------------------------

Call WScript.Echo(output_str)
Call WScript.Quit(0)

'--------------------------
Public Sub list_all_childs(folder, output)
  output = output & folder.Path & vbCrLf

  Dim child_folder, child_folders
  Set child_folders = folder.SubFolders

  For Each child_folder In child_folders
    Call list_all_childs(child_folder, output)
  Next

  Dim file, files
  Set files = folder.Files

  For Each file In files
    output = output & file.Path & vbCrLf
  Next
End Sub
'--------------------------