[フォルダの内容を再帰的に取得する]

システムフォルダの下を再帰的に検索しています。

【ソースコード】
[tips0082.vbs]
Option Explicit
On Error Resume Next

' フォルダ検索関数
Sub FindFolder(ByVal objMainFolder, ByVal strTab)
    Dim objSubFolder    ' サブフォルダ

    For Each objSubFolder In objMainFolder.SubFolders
        WScript.Echo strTab & " + " & objSubFolder.Name
        FindFolder objSubFolder, "  " & strTab
    Next
End Sub

Dim objFSO          ' FileSystemObject
Dim objWinFolder    ' ウィンドウズフォルダ

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    Set objWinFolder = objFSO.GetSpecialFolder(1)
    WScript.Echo objWinFolder.Path
    FindFolder objWinFolder, ""
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWinFolder = Nothing
Set objFSO = Nothing

【実行結果】
C:\> cscript //NoLogo tips0082.vbs
C:\WINNT\system32
 + Adobe
   + SVG Viewer
 + appmgmt
   + MACHINE
〜〜〜 以下略 〜〜〜