Ein Paar Tipps zurückliegend haben wir Ihnen gezeigt, wie man prüfen kann, ob eine bestimmte Datei existiert oder nicht. Diese Methode läßt sich allerdings nicht auf Verzeichnisse (Ordner) anwenden. Um zu prüfen, ob ein bestimmtes Verzeichnis (Ordner) vorhanden ist, bedienen Sie sich folgender API-Deklarationen und der Funktion FolderExists. ' Hier alle benötigten API-Funktionen Private Const MAX_PATH = 260 Private Const INVALID_HANDLE_VALUE = -1 Private Const FiLE_ATTRIBUTE_DIRECTORY = &H10 Private Type FileTime dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreateionTime As FileTime ftLastAccessTime As FileTime ftLastWriteTime As FileTime nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Private Declare Function FindFirstFile Lib "kernel32" _ Alias "FindFirstFileA" ( _ ByVal lpFileName As String, _ lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib "kernel32" ( _ ByVal hWndFile As Long) As Long ' Die nachfolgende Funktion prüft, ob das angegebene Verzeichnis ' existiert und gibt im Erfolgsfall den Wert True zurück. ' Existiert das Verzeichnis nicht, wird False zurückgegeben. Public Function FolderExists(ByVal sFolder As String) As Boolean ' Der Parameter sFolder enthält das zu prüfende Verzeichnis Dim hFile As Long Dim WFD As WIN32_FIND_DATA sFolder = Trim$(sFolder) If right$(sFolder, 1) = "\" Then sFolder = left$(sFolder, Len(sFolder) - 1) End If hFile = FindFirstFile(sFolder, WFD) FolderExists = (hFile <> INVALID_HANDLE_VALUE) And _ (WFD.dwFileAttributes And FiLE_ATTRIBUTE_DIRECTORY) Call FindClose(hFile) End Function Dieser Tipp wurde bereits 25.585 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |