Warum findet Findfirst nicht alle dateien ?

**Corpsman**

HAllo miteinand,

ich wollte mir ein kleines Tool bauen das meine Festplatte nach Dateien durchsuchen kann ( da das in WinXP ja meinstens nicht sauber geht ). Im Wesentlichen hab ich es gemacht, weil mein Tool so schön wie der suchen Dialog aus Win98 gestaltet ist.

Nun habe ich folgende Procedure die das suchen macht

zusammenfalten · markieren

Delphi-Quellcode:

			Procedure GetFilesInDirectory(ADirectory: String; AMask: String; ARekursiv: Boolean);

Var

  SR: TSearchRec;

Begin

  If (ADirectory <> '') Then

    If (ADirectory[length(ADirectory)] <> '\') Then

      ADirectory := ADirectory + '\';

  If (FindFirst(ADirectory + AMask, faAnyFile And Not faDirectory, SR) = 0) Then Begin

    Repeat

      If (SR.Name <> '.') And (SR.Name <> '..') Then

        AddFinding(ADirectory + SR.Name, SR.size);

    Until FindNext(SR) <> 0;

    FindClose(SR);

  End;

  If ARekursiv Then

    If (FindFirst(ADirectory + '*.*', faDirectory, SR) = 0) Then Begin

      Repeat

        If (SR.Name <> '.') And (SR.Name <> '..') And (SR.Attr And FaDirectory = FaDirectory) Then Begin

          GetFilesInDirectory(ADirectory + SR.Name, AMask, {AList,} True);

      Until FindNext(SR) <> 0;

      FindClose(SR);

    End;

End;

Das Problem ist nun aber das diese Procedure Dateien die in

C:\Dokumente und Einstellungen\Administrator\Anwendungsdaten\

liegen nicht findet.

weis zufällig jemand wieso ?

bzw wie ich das beheben kann.

Habe auch mal ausgeben lassen in welchen Verzeichnissen der Rechner sucht. und witzigerweise findet er dieses Verzeichnis gar nicht. Klar das er dann darin auch nicht sucht...

Warum findet Findfirst nicht alle dateien ?

Warum findet Findfirst nicht alle dateien ?

Forumregeln