Ĺadny brzuch
Witam ;)
Jest na forum podobny temat (link), jednak niestety kod w nim zamieszczony nie do końca działa prawidłowo (tworzy tylko pierwszych 10 folderów i 10 w nich). Chodzi mi o to, aby program tworzył foldery :). Każdy folder ma mieć 100 folderów, a każdy z tych folderów ma mieć też 100 folderów itd. itd. :). Taki kwadrat :P. Dla przykładu:
Folder 1-> 1->1->1-> itd. do 100 Folder 1-> 2->2->2->
No coś koło tego :). Nie umiem tłumaczyć :P. Próbowałem coś zrobić i mam taki kodzik:
var i,j,h: integer; const sciezka='c:\foldery\'; begin if (directoryexists(sciezka)=false) then mkdir(sciezka); for i := 1 to 100 do begin if (directoryexists(sciezka+IntToStr(i))=false) then mkdir(sciezka+IntToStr(i)); for j := 1 to 100 do if (directoryexists(sciezka+IntToStr(i)+'\'+IntToStr(j))=false) then mkdir(sciezka+IntToStr(I)+'\'+IntToStr(j)); for h := 1 to 100 do if (directoryexists(sciezka+IntToStr(i)+'\'+IntToStr(j)+'\ '+IntToStr(h))=false) then mkdir(sciezka+IntToStr(I)+'\'+IntToStr(j)+'\'+IntToStr( h)); end; end;
Jednak wyskakuje błąd: "Invalid filename", jednak tworzy folder 1, a w nim 100... Co robię źle?
Z góry dziękuje za pomoc.
Pozdrawiam
var i, j:integer; const sciezka='c:\foldery\'; begin if not directoryexists(sciezka) then mkdir(sciezka); for i:=1 to 100 do begin if not directoryexists(sciezka+inttostr(i)) then mkdir(sciezka+inttostr(i)); for j:=1 to 100 do begin if not directoryexists(sciezka+inttostr(i)+'\'+inttostr(j)) then mkdir(sciezka+inttostr(i)+'\'+inttostr(j)); end; end; end;
Dalej nie działa ;]. Problem twki w tym, że robi mi 100 folderów, następnie w każdym z tych folderów znów 100 folderów i tyle... A mi zależy, żeby tak robił jeszcze ze 100 razy. Czyli 100x100x100x100 itd.. do liczby 100 :).
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jest na forum podobny temat (link), jednak niestety kod w nim zamieszczony nie do końca działa prawidłowo (tworzy tylko pierwszych 10 folderów i 10 w nich). Chodzi mi o to, aby program tworzył foldery :). Każdy folder ma mieć 100 folderów, a każdy z tych folderów ma mieć też 100 folderów itd. itd. :). Taki kwadrat :P. Dla przykładu:
Folder 1-> 1->1->1-> itd. do 100 Folder 1-> 2->2->2->
No coś koło tego :). Nie umiem tłumaczyć :P. Próbowałem coś zrobić i mam taki kodzik:
var i,j,h: integer; const sciezka='c:\foldery\'; begin if (directoryexists(sciezka)=false) then mkdir(sciezka); for i := 1 to 100 do begin if (directoryexists(sciezka+IntToStr(i))=false) then mkdir(sciezka+IntToStr(i)); for j := 1 to 100 do if (directoryexists(sciezka+IntToStr(i)+'\'+IntToStr(j))=false) then mkdir(sciezka+IntToStr(I)+'\'+IntToStr(j)); for h := 1 to 100 do if (directoryexists(sciezka+IntToStr(i)+'\'+IntToStr(j)+'\ '+IntToStr(h))=false) then mkdir(sciezka+IntToStr(I)+'\'+IntToStr(j)+'\'+IntToStr( h)); end; end;
Jednak wyskakuje błąd: "Invalid filename", jednak tworzy folder 1, a w nim 100... Co robię źle?
Z góry dziękuje za pomoc.
Pozdrawiam
var i, j:integer; const sciezka='c:\foldery\'; begin if not directoryexists(sciezka) then mkdir(sciezka); for i:=1 to 100 do begin if not directoryexists(sciezka+inttostr(i)) then mkdir(sciezka+inttostr(i)); for j:=1 to 100 do begin if not directoryexists(sciezka+inttostr(i)+'\'+inttostr(j)) then mkdir(sciezka+inttostr(i)+'\'+inttostr(j)); end; end; end;
Dalej nie działa ;]. Problem twki w tym, że robi mi 100 folderów, następnie w każdym z tych folderów znów 100 folderów i tyle... A mi zależy, żeby tak robił jeszcze ze 100 razy. Czyli 100x100x100x100 itd.. do liczby 100 :).