![]() |
Ordner suche - "." und ".." werden gefun
Wenn ich einen Ordner durchsuche:
Delphi-Quellcode:
Dann findet er die Dateien "." und ".."! Wie kann ich das verhindern?
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; Er soll aber alle anderen Dateien finden (sozusagen: suche nach *.* außer ..* und ...*) |
Re: Ordner suche - "." und ".." werden g
Delphi-Quellcode:
if (FileExists(path + 'GameData\Cache\' + sr.Name)) and ((sr.Name<>'.') or (sr.Name<>'..')) then begin
|
Re: Ordner suche - "." und ".." werden g
Wegen diesem Pänomen ist ja das FileExists drinne (weil sie von FileExists nicht gefunden werden). Allerdings soll er est gar nicht bei FindFirst anspringen ;)
|
Re: Ordner suche - "." und ".." werden g
"." und ".." sind keine Dateien es sind Verzeichnisse :wink:
Also musst da das überprüfen:
Delphi-Quellcode:
if (SR.Attr <> faDirectory) then
begin //dann is es ein file end; |
Re: Ordner suche - "." und ".." werden g
Zitat:
Aber ich habe das in der DH gelesen: Zitat:
[edit] :spin2: :roteyes: o.O Cool mit faAnyFile + not faDirectory funktionierts O.o :roteyes: :spin2: Vielleicht kann man auch direkt Verzeichnisse verbieten :P[/edit] |
Re: Ordner suche - "." und ".." werden g
bei solchen Bitsachen würde ich dir ein binäres OR empfehelen und keine mathematisches +
Delphi-Quellcode:
faAnyFile or not faDirectory
|
Re: Ordner suche - "." und ".." werden g
Zitat:
Delphi-Quellcode:
...:cat:...
faAnyFile and (not faDirectory)
|
Re: Ordner suche - "." und ".." werden g
Zitat:
and not oder or :oops: |
Re: Ordner suche - "." und ".." werden g
Zitat:
|
Re: Ordner suche - "." und ".." werden g
natürlich ... einmal für's Einfügen des Flägs das OR und zum Entfernen das AND NOT ;)
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:18 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz