Script zum rekursiven Anzeigen von Unterverzeichnissen.

showSubFolder.vbs

searchOrdner = "D:\projektetest"
iOrdner = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
 
ShowSubfolders FSO.GetFolder(searchOrdner)
 
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        iOrdner = iOrdner + 1
        Wscript.Echo iOrdner & vbTab & Subfolder.Path
        ShowSubFolders Subfolder
    Next
End Sub

zurück