Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

Ordner suche - "." und ".." werden gefun

  Alt 3. Aug 2006, 15:33
Wenn ich einen Ordner durchsuche:
Delphi-Quellcode:
if FindFirst(path + 'GameData\Cache\*.*', faAnyFile, sr) = 0 then begin
  repeat
    if FileExists(path + 'GameData\Cache\' + sr.Name) then begin
      inc(FilesNum);
      DeleteFile(path + 'GameData\Cache\' + sr.Name);
      pbStatus.Max := Succ(pbStatus.Max);
      pbStatus.StepIt;
      Form2.Repaint;
    end;
  until FindNext(sr) <> 0;
  FindClose(sr);
end;
Dann findet er die Dateien "." und ".."! Wie kann ich das verhindern?
Er soll aber alle anderen Dateien finden (sozusagen: suche nach *.* außer ..* und ...*)
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat