findFirst systemabhängig??

[hackyie]

hi,

hier mal meine findFirst-Methode, ich möchte ausschließlich Ordner suchen und die Ordner [.] und [..] ausschließen:

Delphi-Quellcode:

if FindFirst(apPath + 'discs\*.*', faDirectory, SearchRec) = 0 then
  begin
    repeat
      if pos('.',SearchRec.Name) = 0 then
        ListBox1.items.add(searchrec.Name);
    until FindNext(searchrec) <> 0;
    findclose(searchrec);
  end;

Das ganze funktioniert auf meinem Win XP prof. System hundertpro, alle Ordner landen in der Liste. Auf dem System meines Vaters (auch Win XP prof) findet er null Ordner obwohl er 100% im richtigen Verzeichnis sucht und dort auch die Ordner existieren. Sind auch nicht versteckt oder ähnliches, ich kann das komplette Verzeichnis von emienm Rechner auf seinen kopieren und dort läuft es nicht mehr. warum?

Und am Rande: gibt es ne Möglichkeit, findFirst nur nach Ordnern suchen zu lassen und die nicht so umständlich rauszufiltern wie ich das gemacht habe?

Danke schonmal :)

[Martin K]

Ein Ordner kann auch einen Punkt im Namen enthalten!

Mein Vorschlag:

Delphi-Quellcode:

  if FindFirst('*', faAnyFile, SR) = 0 then
  try
    repeat
      if (SR.Attr and faDirectory <> 0) and (SR.Name <> '.') and (SR.Name <> '..') then
        // SR.Name ist ein Ordner!
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;

//Edit:
*.* durch * ersetzt.

[hackyie]

klasse, das läuft schonmal. Aber ich glaube nicht, dass das an der System-Inkompatibilität was ändert, mal testen nachher...

[Neutral General]

Du kannst nur Ordner suchen wenn du als Parameter bei FindFirst statt faAnyFile faDirectory angibst ;)

Gruß
Neutral General

[Martin K]

Zitat:

Zitat von Neutral General

Du kannst nur Ordner suchen wenn du als Parameter bei FindFirst statt faAnyFile faDirectory angibst ;)

Gruß
Neutral General

Hast Du es mal ausprobiert?
Bei mir ändert es nichts daran, ob ich nach faAnyFile oder nach faDirectory suche.
Beidemale wird nach Dateien und Ordnern gesucht.
Erst die Überprüfung SR.Attr and faDirectory<>0 sagt mir, ob es Datei oder Ordner ist.

Im Übrigen:
Nur nach Dateien suchen geht so:
faAnyFile-faDirectory bei FindFirst als Parameter.

Für die Suche nur nach Ordnern gibt es imho dort keine Parameter...

[hackyie]

korrekt. denn der Parameter gibt ja an, was zusätzlich zu anyFile gesucht werden soll. VOn daher glaube ich auch nicht, dass man schon direkt in FIndfirst alle Dateien ausschließen kann...

edit: heissa, es läuft auf beiden Systemen! so gravierend hab ich an sich gar nichts geändert, aber es läuft. Strange.

[jbg]

Zitat:

Zitat von Martin K

faAnyFile-faDirectory

+ und - sind nicht für Bit-Operationen gedacht, sondern zum addieren undd subtrahieren. Für Bit-Operationen sollte man or (Bit setzen) bzw. and not (Bit löschen) benutzen. Auch wenn es mehr schreibarbeit ist, es ist richtiger und führt nicht zu schwer auffindbaren Fehlern. Was wenn mal faDirectory nicht in faAnyFile enthalten ist, weil irgendein Schlauberger sich faAnyFile umdefiniert hat, damit es seinem Namen gerecht wird. Subtrahiert er nun faDirectory, so löscht er das Bit unterhalb von faDirectory, war er gar nicht wollte.

[negaH]

OT: Martins vorgeschlagener Source ist perfekt, danke !

Gruß Hagen

[SirThornberry]

Was mir auffällt: Du suchst nach "*.*". Streng genommen suchst du also nach Ordnern welche mindestens einen "." im Namen haben. Wenn du nach "*,*" suchst erwartest du ja auch das nur dinge gefunden werden wo "," drin vorkommt. Bei "." scheint das auf manchen Systemen eine Ausnahme zu sein. Aber Generell sollte man nur nach "*" suchen wenn man wirklich alle Namen finden will.

[Martin K]

Zitat:

Zitat von SirThornberry

Was mir auffällt: Du suchst nach "*.*". Streng genommen suchst du also nach Ordnern welche mindestens einen "." im Namen haben. Wenn du nach "*,*" suchst erwartest du ja auch das nur dinge gefunden werden wo "," drin vorkommt. Bei "." scheint das auf manchen Systemen eine Ausnahme zu sein. Aber Generell sollte man nur nach "*" suchen wenn man wirklich alle Namen finden will.

Stimmt.
Aber bei Windows ist wohl *.* = *
Ich verbessere es lieber mal im obigen Code, damit's keine Probleme gibt, wenn ihn jemand mal einfach so auf die Schnelle kopiert...