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:  7.124
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	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

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