Einzelnen Beitrag anzeigen

Reinhold

Registriert seit: 29. Jul 2005
Ort: Frankfurt am Main
28 Beiträge
 
Delphi 10.3 Rio
 
#14

AW: Dateien mit Pfad kopieren

  Alt 9. Jan 2021, 09:59
Hallo,

wenn ich, Dich richtig verstanden habe hast du eine Verzeichnisstruktur der folgenden Art hast:
C:\Bilder\Delphi\Programmme
in der sich mehere Dateien befinden und in
F:\Bilder\Delphi\Programme
speichern möchtest.

Um dies zu machen mußt Du als erstes dir die Verzeichniststruktur vom Zielsystem zusammen bauen und danach kopieren.
Das ich wie folgt machen würde.

Delphi-Quellcode:
//zB:
// Source = 'C:\Bilder\Delphi\Programmme';
//Dest = 'G:/';

// nur Path ohne Dateinamen
procedure CopyPath(const SourcePath, DestPath: string);
var
  Dest: string;
  Dir: TDirectory;
begin
  Dest:= ExcludeTrailingPathDelimiter(DestPath);
  Dest:= StringReplace(Source,ExtractFileDrive(Source),Dest,[]);
  Dir.Copy(Source,Path);
end;
Reinhold
  Mit Zitat antworten Zitat