Frage von MaxKunert, 15

Windows Ordner Verzeichnis automatisch anlegen?

Hallo erstmal,

ich habe eine Frage die manchen von euch vielleicht irritieren wird. Wie auch immer: Ich möchte das mein Rechner automatisch ein Ordnerverzeichnis anlegt: 1. er soll 10 Ordner anlegen die von 0-9 beschriftet werden 2. in jedem dieser 10 Ordner sollen weitere 10 Ordner erstellt werden 3. in jedem dieser "2.Ordner" sollen wieder 10 Ordner erstellt werden

das ganze soll 5 oder mehr mal wiederholt werden. So bekommt man eine Art "Pin Code" in Form eines Ordnerverzeichnisses. Da ich aber keine lust habe hunderterttausende Ordner von selbst zu erstellen, hätte ich gerne eine Empfehlung wie ich diesen Vorgang automatisieren könnte

-Vielen Dank schonmal im Vorraus-

mfg

Antwort
von Isendrak, 5
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

Sub CreateFolder(Path, Depth, MaxDepth)
If Depth >= MaxDepth Then
Exit Sub
End If
For i = 0 To 9
oFSO.CreateFolder(Path&"\"&i)
CreateFolder Path&"\"&i, Depth+1, MaxDepth
Next
End Sub

CreateFolder ".", 0, 5
wscript.echo("fertig...")

Speichern als "irgendwas.vbs" und per Doppelklick, wscript oder cscript ausführen...

P.S.: Vor dem Ausführen das Script in den Ordner verschieben (oder gleich dort speichern) in dem das "PIN-Labyrint" erstellt werden soll.

P.P.S.: Wenn du in Zeile 14 (die Vorletzte) die 5 durch eine andere Zahl ersetzt, kannst du dadurch die "PIN-Tiefe" festlegen...

Kommentar von MaxKunert ,

Vielen Dank!

Keine passende Antwort gefunden?

Fragen Sie die Community