prüfen, ob es ein Ordner ist

[Gina]

Hallo,

ich weiß, dass diese Frage in ähnlicher Form schon öfter gefallen ist. Trotzdem würde mich eins speziell interessieren:

Ich habe in einer Listbox verschiedene Pfade als Einträge drin. Manche sind Ordner und manche Dateien. Welches ist die schnellste und zugleich sicherste Methode zu prüfen, ob es sich bei dem Eintrag um einen Ordner handelt?

Vielen lieben Dank, Gina.

[Matze]

Evtl. einfach die Dateiendung abfragen.

[Daniel]

Ne. Ich habe Verzeichnisse, die heißen 'starteam.install' o.ä.
Du solltest Dir über FindFirst() die Attribute des jeweiligen Eintrages ermitteln lassen. Bei Verzeichnissen ist dann das Flag faDirectory gesetzt. Dieser Weg sollte zuverlässig und sauber sein.

Es geht aber auch anders: Wenn Du absolut sicher bist, dass es entweder Dateien oder Verzeichnisse sind, dann prüfe mit DirectoryExists(), ob ein Eintrag ein Verzeichnis ist. Wenn nein, dann muss es ja eine Datei sein.

[mirage228]

Hi,

ich habe hier eine bzw. zwei nützliche Funktion(en) für Dich:

Delphi-Quellcode:

  function IsDirectoryA(const Dir: string): Boolean;
  var
    F: TWin32FindDataA;
    Handle: HWnd;
  begin
    Handle := FindFirstFileA(PChar(Dir), F);
    if Handle <> INVALID_HANDLE_VALUE then
    begin
      Result := ((f.dwFileAttributes and faDirectory) = faDirectory);
      Windows.FindClose(Handle);
    end else
      Result := False;
  end;

  function IsDirectory(Dir: WideString): Boolean;
  var
    F: TWin32FindDataW;
    Handle: HWnd;
  begin
    Dir := ExcludeTrailingPathDelimiter(Dir);
    if (Win32Platform <> VER_PLATFORM_WIN32_NT) then
      Result := IsDirectoryA(Dir) else
    begin
      Handle := FindFirstFileW(PWideChar(Dir), F);
      if Handle <> INVALID_HANDLE_VALUE then
      begin
        Result := ((f.dwFileAttributes and faDirectory) = faDirectory);
        Windows.FindClose(Handle);
      end else
        Result := False;
    end;
  end;

Du musst einfach immer IsDirectory() aufrufen, um abzufragen, ob das Element ein Verzeichnis ist.

mfG
mirage228

[Luckie]

Warum nicht die entsprechende Funktion aus der Unit FileCtrl nehmen?

[Daniel]

Zitat:

Zitat von Luckie

Warum nicht die entsprechende Funktion aus der Unit FileCtrl nehmen?

...weil es die da zum Beispiel in Delphi 2005 nicht (mehr) gibt? Ich hatte auch nach etwas in der Richtung gesucht, aber nichts mehr gefunden.

[Luckie]

Gibt es bestimmt. Und wenn es ein .NET Programm werden soll, wäre die WinAPI Lösung von mirage auch nicht angebracht.

[mirage228]

Zitat:

Zitat von Daniel

Zitat:

Zitat von Luckie

Warum nicht die entsprechende Funktion aus der Unit FileCtrl nehmen?

...weil es die da zum Beispiel in Delphi 2005 nicht (mehr) gibt? Ich hatte auch nach etwas in der Richtung gesucht, aber nichts mehr gefunden.

Äh, im Win32 Teil gibt es Unit noch auf jeden Fall ;). Für .NET gibt es die Directory Klasse(n) :)

Edit:
Nochmal für .NET

Delphi-Quellcode:

System.IO.Directory.Exists()

mfG
mirage228

[Matze]

Zitat:

Zitat von Daniel

Es geht aber auch anders: Wenn Du absolut sicher bist, dass es entweder Dateien oder Verzeichnisse sind, dann prüfe mit DirectoryExists(), ob ein Eintrag ein Verzeichnis ist. Wenn nein, dann muss es ja eine Datei sein.

Wenn ich aber in einem Ordner eine Datei und einen Ordner mit gleichem Dateinamen habe, kann's da auch zu Problemchen kommen.

[Daniel]

Zitat:

Zitat von Luckie

Gibt es bestimmt.

Du kleiner Widerporst. :mrgreen: Ich hatte die Datei eben vor der Nase. Screenie im Anhang.


Vielleicht ist es aber auch einfach nur zu früh für mich.