Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6 | 19.07.05 |
![]() Wie kann man möglichst schnell ermitteln, ob es sich bei einem übergebenen Pfad um eine Datei oder um einen Ordner handelt? | ||
Autor: ![]() | Bewertung: ![]() ![]() ![]() ![]() ![]() | Views: 16.786 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | ![]() |
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