Hab es mal so versucht... alle Dateien aus dem Verzeichnis X Festplatte A in das
nicht existierende Verzeichnis Y Festplatte B zu kopieren ...den anderen Vorschlag verstehe ich nicht so!
Delphi-Quellcode:
if FindFirst(ListBox2.Items[0]+'*.*', faAnyFile, SearchRec) = 0 then begin
while FindNext(SearchRec) = 0 do begin
CopyFile(pchar(ListBox1.Items[X] + SearchRec.Name),pchar(ListBox2.Items[Y] + SearchRec.Name),False);
end;
FindClose(SearchRec);
end;
Irgendwie ist da aber noch ein Fehler im Source und erstellt Delphi nicht vorhandene Verzeichnisse automatisch?
Gruß
Michl