Ganzen Ordner kopieren + prüfen auf Datum

h4dhunTer

Erfahrenes Mitglied
Hallo,
ich bin ein Anfänger und bräuchte Hilfe bei meinem Delphi 7 problem.
Ich möchte einen Ordner von A nach B kopieren. Sollte der Ordner schon vorhanden sein, soll er nur Datei kopieren, die sich geändert haben (nach Datum).

Ist das Möglich und wenn ja, wie?
Ich habe bereits einen Code, womit ich einen ganzen Ordner kopieren kann, doch nicht die Überprüfung.

Code:
function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString; 
    Flags: FILEOP_FLAGS): Integer; 
var 
  FromPath, ToPath: AnsiString; 
  SHFileOpStruct: TSHFileOpStruct; 
begin 
  FromPath := aFrom + #0#0; 
  ToPath := aTo + #0#0; 
  with SHFileOpStruct do 
  begin 
    Wnd := 0; 
    wFunc := aOperation; 
    pFrom := PAnsiChar(FromPath); 
    if ToPath <> '' then 
    begin 
      pTo := PAnsiChar(ToPath) 
    end else begin // target available 
      pTo := nil; 
    end; // target not available 
    fFlags := Flags; 
  end; // structure 
  Result := SHFileOperationA(SHFileOpStruct); 
end;

Vielen Dank schonmal im vorraus... :)
 
Zurück