Das hatte ich auch mal vor, ich hab mir ne Funktion geschrieben, die die Ordner mit allen Unterordnern erzeugt:
Delphi-Quellcode:
function CutPath(S:
String):
String;
var
i, L: Integer;
begin
Result:= '
';
L:= Length(S);
if L = 0
then Exit;
for i:= L - 1
downto 1
do begin
if S[i] = '
\'
then begin
Result:= Copy(S, 1, i - 1);
Exit;
end;
end;
end;
function CreateFolders(S:
String): Boolean;
var
TempString:
String;
TempFolder:
array of String;
i: Integer;
begin
i:= 0;
TempString:= S;
Result:= True;
if DirectoryExists(S)
then Exit;
while not DirectoryExists(TempString)
do begin
if TempString = '
'
then begin
TempFolder:=
nil;
Result:= False;
Exit;
end;
Inc(i);
SetLength(TempFolder, i);
TempFolder[i - 1]:= TempString;
TempString:= CutPath(TempString);
end;
while i > 0
do begin
CreateDir(TempFolder[i - 1]);
Dec(i);
end;
TempFolder:=
nil;
end;
Du musst einfach den Pfad angeben, dann werden die Ordner erzeugt. Das eigentlich kopieren von Dateien, ist dann das kleinere Problem.
Gruß DelphiFreund