再帰処理

Option Explicit
dim objFSO,objFolder,objFile,retf,retf2
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(".\")



'WScript.Echo objFolder.Path & "内のファイル:"



FileDisp(objFolder)
msgbox "処理終了"



Function FileDisp(objFolder)
For Each objFile In objFolder.Files
  'ファイル名取ってきて処理書くのだ
  msgbox objFile.Name
Next



dim SubFolder
For Each SubFolder In objFolder.SubFolders
  FileDisp(SubFolder)
Next
End Function



久々のVBScript、For Eachの書き方を忘れてたナリ（ｗ