[フォルダの内容を再帰的に取得する] システムフォルダの下を再帰的に検索しています。 【ソースコード】 [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 ' ウィンドウズフォルダ