2 Verzeichnisse mit Dateien vergleichen

[himitsu]

@mashutu:
besser auf sr und sr2 achten (so, wie es jetzt ist, gibt's Probleme )

aber zum zweiten FindFirst: FileExists ist auch ganz nett

Delphi-Quellcode:

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

var
    sr  :   TSearchRec;
    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
         if FileExists(sPath2+sr.name) then
         begin
           //Datei ist im Zielverz. vorhanden
           //hier vergleich o.ae. implementieren
         end
         else
         begin
           //datei fehlt im Ziel kopieren
         end
     end;
     iRes:=SysUtils.FindNext(sr);
   end;
   findclose(sr);
end;