Script zum Anzeigen von Unterverzeichnissen.
Es werden keine Unterunterverzeichnisse mit angezeigt

showFolder.vbs

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

zurück