VBS-Code zum Abrufen der Namen aller Ordner im aktuellen Verzeichnis

VBS ruft die Namen aller Ordner im aktuellen Verzeichnis ab, mit Ausnahme der Unterordner. Ich möchte jeden Ordner bedienen, daher ist es am besten, die Schleifenausgabe zu verwenden.

Stellen Sie beim Testen sicher, dass sich im aktuellen Verzeichnis ein Ordner befindet, sonst ist die Ausgabe leer.

Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Path & vbcrlf
Next
MsgBox t

Weitere Artikel zum Thema VBS-Code zum Abrufen der Namen aller Ordner im aktuellen Verzeichnis finden Sie auf der chinesischen PHP-Website!