thenkles napisał:
No niestety :( musiałbym bardzo mieszać w programie żeby takie coś zrobić. Nie ma może funkcji, która tworzy folder niezależnie od istnienia wyższych folderów? Ew. jakiś kodzik rozbijający to i tworzący wszystkie foldery po kolei?
Troche to naciągane ale zrobiłem jak umiałęm :)
procedure new_mkdir(s: string);
var
Katalogi: TStringList;
Katalog: String;
I, V: Integer;
begin
Katalogi := TStringList.Create;
while Pos('\', s) > 0 do
begin
Katalogi.Add(Copy(s, 1, Pred(Pos('\', s))));
Delete(s, 1, Pos('\', s));
end;
Katalogi.Add(s);
for I := 0 to Pred(Katalogi.Count) do
begin
Katalog := Katalogi.Strings[0];
for V := 1 to I do
Katalog := Katalog + '\' + Katalogi.Strings[V];
MkDir(Katalog);
end;
Katalogi.Free;
end;
no i działa tylko na ścieżki z użyciem '\' a nie '/'
najlepiej gdzieś jeszcze na początku pozamieniać wszystkie '/' na '\'
albo ich nie stosować--__________________________________
Pozdrawiam...
piechnat