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

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

【ソースコード】

[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
〜〜〜 以下略 〜〜〜