AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Ordner suche - "." und ".." werden gefunden
Thema durchsuchen
Ansicht
Themen-Optionen

Ordner suche - "." und ".." werden gefunden

Ein Thema von xZise · begonnen am 3. Aug 2006 · letzter Beitrag vom 4. Aug 2006
Antwort Antwort
Seite 1 von 2  1 2      
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
Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Ordner suche - "." und ".." werden g

  Alt 3. Aug 2006, 15:35
if (FileExists(path + 'GameData\Cache\' + sr.Name)) and ((sr.Name<>'.') or (sr.Name<>'..')) then begin
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

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

Re: Ordner suche - "." und ".." werden g

  Alt 3. Aug 2006, 15:36
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
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Benutzerbild von arbu man
arbu man

Registriert seit: 3. Nov 2004
Ort: Krefeld
1.108 Beiträge
 
Delphi 7 Professional
 
#4

Re: Ordner suche - "." und ".." werden g

  Alt 3. Aug 2006, 15:38
"." und ".." sind keine Dateien es sind Verzeichnisse

Also musst da das überprüfen:
Delphi-Quellcode:
if (SR.Attr <> faDirectory) then
begin
//dann is es ein file
end;
Björn
>> http://bsnx.net <<
Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

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

Re: Ordner suche - "." und ".." werden g

  Alt 3. Aug 2006, 15:42
Zitat von xZise:
Allerdings soll er erst gar nicht bei FindFirst anspringen
Und das würde er auch da tun...

Aber ich habe das in der DH gelesen:
Zitat:
For example, to search for read-only and hidden files in addition to normal files, pass (faReadOnly + faHidden)
Gibts vielleicht eine möglichkeit: faAnyFile und nicht faDirectory?

[edit] o.O Cool mit faAnyFile + not faDirectory funktionierts O.o
Vielleicht kann man auch direkt Verzeichnisse verbieten [/edit]
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.147 Beiträge
 
Delphi 12 Athens
 
#6

Re: Ordner suche - "." und ".." werden g

  Alt 4. Aug 2006, 11:57
bei solchen Bitsachen würde ich dir ein binäres OR empfehelen und keine mathematisches +

faAnyFile or not faDirectory
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: München
11.412 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: Ordner suche - "." und ".." werden g

  Alt 4. Aug 2006, 12:03
Zitat von himitsu:
bei solchen Bitsachen würde ich dir ein binäres OR empfehelen und keine mathematisches +
aber ein and, nicht or
faAnyFile and (not faDirectory) ......
Daniel W.
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.147 Beiträge
 
Delphi 12 Athens
 
#8

Re: Ordner suche - "." und ".." werden g

  Alt 4. Aug 2006, 13:22
Zitat von sakura:
Zitat von himitsu:
bei solchen Bitsachen würde ich dir ein binäres OR empfehelen und keine mathematisches +
aber ein and, nicht or
faAnyFile and (not faDirectory) ......
upps ... jooo, also ein

and not

oder

or


Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Nicolai1234

Registriert seit: 21. Feb 2004
1.008 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: Ordner suche - "." und ".." werden g

  Alt 4. Aug 2006, 13:27
Zitat von himitsu:
Zitat von sakura:
Zitat von himitsu:
bei solchen Bitsachen würde ich dir ein binäres OR empfehelen und keine mathematisches +
aber ein and, nicht or
faAnyFile and (not faDirectory) ......
upps ... jooo, also ein

and not

oder

or


aber and not und or wäre doch was anderes, oder?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.147 Beiträge
 
Delphi 12 Athens
 
#10

Re: Ordner suche - "." und ".." werden g

  Alt 4. Aug 2006, 13:29
natürlich ... einmal für's Einfügen des Flägs das OR und zum Entfernen das AND NOT
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz