Oberste 2 Verzeichnisebenen einer Partition auslesen

geschlossengelöstFrage VB for Applications Entwicklung

Guten Tag

Ich brauche ein VBScript, welches die ersten 2 Verzeichnisebenen einer Partition auflistet. Leider habe ich keine Idee, wie ich das anstellen soll.

Mir schwebt da etwas mit

For Each SubFolder In Folder.SubFolders

Next

im Kopf rum, ich komm allerdings nicht auf die Lösung.

Kann einer von euch VB-Göttern mir kurz helfen?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 65934

Url: https://administrator.de/forum/oberste-2-verzeichnisebenen-einer-partition-auslesen-65934.html

Ausgedruckt am: 18.04.2025 um 19:04 Uhr

3 Kommentare

Neuester Kommentar

du hast dir doch schon selber die Antwort gegeben.
Du liest als erstes die 1 Ebene aus, speicherst die Werte in einem Array und gibst sie aus. Danach liest du dann das Array aus und gibst die die 2. Ebene mit For Each SubFolder In Folder.SubFolders für jeden Ordner im Array aus.

Hoffe das hilft dir schon.

Hallo TuXHunt3R!

Rein schematisch würde das etwa so aussehen, wobei Du das Script zum Testen besser über

cscript //nologo Scriptname.vbs

starten solltest

Root = "C:\"  
For Each Folder In CreateObject("Scripting.FileSystemObject").GetFolder(Root).SubFolders  
	WScript.Echo Folder.Path
	If Folder.Name <> "System Volume Information" Then  
		For Each SubFolder In Folder.SubFolders
			WScript.Echo SubFolder.Path
		Next
	End If
Next