急遽、確認作業で必要になったので作成。
dirやTreeコマンドを駆使したけどダメだったのでVBscriptで作ってみました。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Checkdir("D:\USERDATA\Folders") Sub Checkdir(Folders) Set fs = wscript.CreateObject("Scripting.FileSystemObject") Set f = fs.getFolder(Folders) For Each Folder1 In f.SubFolders Set f = fs.getFolder(Folder1) For Each Folder2 In f.SubFolders Set f = fs.getFolder(Folder2) For Each Folder3 In f.SubFolders Set f = fs.getFolder(Folder3) For Each Folder4 In f.SubFolders Wscript.Echo Folder4 Next Next Next Next End Sub |
もっとスマートな書き方があると思うけど時間が無かったので(^^;