Problem mit FindFirst

[toyoman]

Danke für deine Inputs. Warum ich da was genau so gemacht habe weiss ich im Detail nicht mehr. Diese Prozedur stammt aus "alten" Tagen. Hatte bestimmt alles seine Bedeutung und hat ja auch funktioniert.
Der neue Code sollte also deiner Meinung nach so aussehen?:

{Findet alle Dateien im SourcePfad und kopiert auf Networkpfad}

Delphi-Quellcode:

procedure findfiles(Source: string);
var SearchRec: TSearchRec;
begin
  screen.cursor:=crhourglass;
     if Source <> '' then
     begin
        if FindFirst(Source + '\*.*',faanyfile, SearchRec)=0 then
        begin
          repeat
              application.ProcessMessages;
              if ( ( SearchRec.Attr and faDirectory ) = faDirectory ) then
              begin
                    findfiles(Source + '\' + SearchRec.Name);
              end else
              begin
                    CopyFilewithprogressbar(PChar(Source+'\'+SearchRec.Name), PChar(networkpfad+ '\' + SearchRec.Name));
              end;
              application.ProcessMessages;
          until (FindNext(SearchRec) <> 0);
         FindClose(SearchRec);
        end;
    end;
  screen.cursor:=crdefault;
end;

Zitat von Muetze1:

Naja, mal der Reihe nach:

1. Was soll faDirectory+fahidden+fasysfile+faanyfile+faarchive+fareadonly ? Die Flags sind einzelne Bitkonstanten (einzige Ausnahme: faAnyFile, siehe folgendes) und definieren jeweils nur ein Bit und können von daher zufälligerweise addiert werden. Dieser Weg ist aber falsch - sie müssen mit ODER verknüpft werden. Auch steht die Konstante faAnyFile nicht für ein Bit sondern für mehrere gesetzte Bits und verramscht dir bei der Addition die kompletten anderen Bits. Und dazu noch, wo doch faAnyFile für alle anderen Bits steht.
Ergo: gebe nur faAnyFile an!

2. Was willst du mit der If Abfrage

Delphi-Quellcode:

if ((SearchRec.Attr  = faDirectory and 255) or (SearchRec.Attr = 48)
                  or (SearchRec.Attr = 18) or (searchrec.attr=17) or (searchrec.attr=20))
                  and (pchar(SearchRec.Name) <> '.') and (pchar(SearchRec.Name) <> '..') then

erreichen? Vermutlich ob es ein Ordner ist und wenn ja, ob er ungleich . oder .. ist. Ok. Attr von TSearchRec ist auch eine Bitfeld wo jedes Bit seine Bedeutung hat, somit musst du eine logische Operation durchführen um zu testen ob ein Bit (das für Verzeichnis: faDirectory) gesetzt ist. Ergo: if ( ( SearchRec.Attr and faDirectory ) = faDirectory ) then 3. Ich habe die Abfrage ob der Name ungleich . und .. ist extra rausgenommen, weil wenn es in deiner alten Abfrage dazu kam, dass es ein Verzeichnis ist und es den Namen . oder .. hatte, dann wurde dein ELSE Zweig aufgerufen und kopiert - war das so gewollt? Ich denke wohl eher nicht. Von daher füge die Namen Abfrage direkt vor dem rekursiven FindFiles() Aufruf an: if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then Ich denke mal, dass sich das Problem mit den 3 Änderungen auch erledigt hat. Schon allein, da du das faReadOnly Flag gar nicht mehr brauchst.