3
Oberste 2 Verzeichnisebenen einer Partition auslesen
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?
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?
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 65934
Url: https://administrator.de/contentid/65934
Printed on: April 25, 2024 at 06:04 o'clock
3 Comments
Latest comment
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.
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
starten solltest :
Ob Dir anstelle der Ausgabe des gesamten Pfades auch ein "Folder.Name" genügt, musst Du selbst wissen ...
Grüße
bastla
Rein schematisch würde das etwa so aussehen, wobei Du das Script zum Testen besser über
cscript //nologo Scriptname.vbsRoot = "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
NextGrüße
bastla
@ Bastla
Danke, so was habe ich gebraucht
Danke, so was habe ich gebraucht
