PIN Verzeichniss Struktur erstellen

XTC99

]Hallo wollte mir eine PIN Verzeichniss Struktur erstellen funktioniert soweit ganz gut,
leider wird auch immer ein Verzeichniss mit dem Name 10 erstellet obwohl ich das mit der If Abfrage
abfangen wollte. Also irgendwo ist noch ein Denkfehler drinnen. Vielleicht findet ihr den Fehler

Danke

Spoiler anzeigen

[autoit]

dim $dir_temp = @ScriptDir & '\Pinfolder'
dim $1 = 1
dim $2 = 1
dim $3 = 1
dim $4 = 1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

for $1 = 1 to 9
if $1 < 10 Then
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
for $2 = 1 to 9
if $2 < 10 Then
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
for $3 = 1 to 9
if $3 < 10 Then
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
for $4 = 1 to 9
if $3 < 10 Then
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
EndIf
Next
EndIf
Next
EndIf
Next
EndIf
Next

[/autoit]

**BugFix**

Was bitte, soll eine "PIN Verzeichniss Struktur" sein? Wozu soll das dienen?

**Raupi**

Spoiler anzeigen

[autoit]

Dim $dir_temp = @ScriptDir & '\Pinfolder'
Dim $1 = 1
Dim $2 = 1
Dim $3 = 1
Dim $4 = 1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

For $1 = 1 To 9
DirCreate($dir_temp & '\' & $1)
For $2 = 1 To 9
DirCreate($dir_temp & '\' & $1 & '\' & $2)
For $3 = 1 To 9
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3)
For $4 = 1 To 9
DirCreate($dir_temp & '\' & $1 & '\' & $2 & '\' & $3 & '\' & $4)
Next
Next
Next
Next

[/autoit]

Edit: Den Sinn des Ganzen habe ich aber nicht verstanden.

XTC99

Vielen Dank für eure Hilfe.
war nur ein Teil einer Wette
wieviel Zeilen SourceCode man braucht um eine Ordnerstruktur von 1/1/1/1 bis 9/9/9/9
zu erstellen.

progandy

Zitat von XTC99

Vielen Dank für eure Hilfe.
war nur ein Teil einer Wette
wieviel Zeilen SourceCode man braucht um eine Ordnerstruktur von 1/1/1/1 bis 9/9/9/9
zu erstellen.

Ich brauche noch weniger (9 Zeilen + 3 weitere zum Aufräumen)

Spoiler anzeigen

[autoit]

DirCreate(@TempDir & '\Pinfolder')
_CreateNumberedFolders(@TempDir & '\Pinfolder', 9, 4)
MsgBox(0, '', "Fertig. Alles wieder löschen")
DirRemove(@TempDir & '\Pinfolder')
Func _CreateNumberedFolders($Path, $iCount, $iDepth)
;Author: Prog@ndy
If $iDepth < 1 Then Return
For $i = 1 To $iCount
DirCreate($Path & "\" & $i)
_CreateNumberedFolders($Path & "\" & $i, $iCount, $iDepth-1)
Next
EndFunc

[/autoit]

XTC99

OK Edel, @ progandy

schaut geil aus, mir ist es ein bischen zu kompliziert.

Zeitriss

Das ganze geht auch in 2 Zeilen

[autoit]

FileWrite("File.au3","For $i = 1 to 9"&@crlf&"For $i2 = 1 to 9"&@crlf&"For $i3 = 1 to 9"&@crlf&"For $i4 = 1 to 9"&@crlf&'DirCreate(@ScriptDir&"\Pinfolder\"&$i&"\"&$i2&"\"&$i3&"\"&$i4)'&@crlf&"Next"&@crlf&"Next"&@crlf&"Next"&@crlf&"Next"&@crlf&"FileDelete('File.au3')")
Run('"' & @AutoItExe & '" /ErrorStdOut /AutoIt3ExecuteScript "' & "File.au3" & '" ' & "", @WorkingDir, @SW_SHOW, 0)

[/autoit]