Datei oder Ordner? Wie kann man möglichst schnell ermitteln, ob es sich bei einem übergebenen Pfad um eine Datei oder um einen Ordner handelt?
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  4.322
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 11 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Adventsangebot 2008 Während der Adventszeit, Woche für Woche interessante Festtagsangebote Diese Woche (01.12.08 bis 07.12.08): sevDataGrid 2.0 für nur 99,- EUR sevOutBar 3.0 für nur 29,- EUR - Werbung -Greifen Sie jetzt zu!

Wie kann man möglichst schnell ermitteln, ob es sich bei einem übergebenen Pfad um eine Datei oder um einen Ordner handelt?

Die Antwort lautet: GetAttr
Mit dieser Funktion lassen sich Datei- bzw. Ordner-Attribute ermitteln.

If (GetAttr(sFileOrPath) And vbDirectory) Then 
  ' Es handelt sich um einen Ordner!
 
Else 
  ' Es handelt sich um eine Datei!
 
End If

Das Ganze lässt sich jetzt wie folgt in eine universelle Funktion verpacken:

Public Function IsFolder(ByVal sFileOrPath As String) As Boolean
  ' Funktion gibt TRUE zurück, falls es sich bei dem 
  ' übergebenen Pfad um ein Verzeichnis handelt, andernfalls FALSE
  If (GetAttr(sFileOrPath) And vbDirectory) Then
    IsFolder = True
  End If
End Function