| Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6 | 19.07.05 |
 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:   | Views: 16.720 |
| www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
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
