2 Verzeichnisse mit Dateien vergleichen

[himitsu]

Zitat von mashutu:

Delphi-Quellcode:

function ProcessFiles(sPath1,sPath2:string):longint;

var
    sr2,
    sr  :   TSearchRec;
    iRes2,
    iRes    :   integer;
begin
   result:=0;
   iRes:=SysUtils.FindFirst(sPath+'*.*', $FF, sr);
   while iRes=0 do
   begin
     if sr.Attr and faDirectory =0 then //no subdirs
     begin
         iRes2:=SysUtils.FindFirst(sPath2+sr.name, $FF, sr);
         if iRes2=0 then
         begin
           //Datei ist im Zielverz. vorhanden
           //hier vergleich o.ae. implementieren
         end
         else
         begin
           //datei fehlt im Ziel kopieren
         end
         findclose(sr2);
     end;

     iRes:=SysUtils.FindNext(sr);
   end;
   findclose(sr);
end;

Mal als Anregung

allerdings prüft dieses nur auf das Vorhandensein einer Datei mit dem selben Namen und ignoriert den Dateiinhalt
(aber für schnelle/einfache Prüfungen könnte man noch die Dateigröße, LastWriteTime und das Archiv-Attribut mit vergleichen)