Kopieren der Dateien die sich verändert haben

[Tonic1024]

Moin...

Klar gibts die... Diese Funktion stammt aus einem Buch. Du gibst unter 'von' und 'nach' den absoluten Pfad mit Dateinamen an. Umbenennen also möglich, denke ich. Relativer Pfad sollte auch möglich sein, allerdings würde ich dann sicherstellen, dass dein Arbeitsverzeichnis auch stimmt...

Delphi-Quellcode:

// Einfache Kopierfunktion
function CopyFile(von, nach: string):Boolean;
var source, drain: TFileStream;
begin
  Result:=false;

  source:=TFileStream.Create(von, fmOpenRead);
  try
    drain:=TFileStream.Create(nach, fmOpenWrite or fmCreate);
  except
    source.Free;
    Exit;
  end;
  try
    drain.CopyFrom(source, source.Size);
  except
    drain.Free;
    source.Free;
    Exit;
  end;
  drain.Free;
  source.Free;
  result:=true;
end;

Vielleicht hilft dir das weiter.

Bis denne...