Deklaration: Declare Function FindClose Lib "kernel32.dll" (ByVal hFindFile As Long) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib "kernel32" _ Alias "FindNextFileA" ( _ ByVal hFindFile As Long, _ lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long Private Const MAX_PATH = 260 Private Const INVALID_HANDLE_VALUE = -1 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime 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 ' Nach allen Dateien und Ordnern inerhalb eines Verzeichnisses suchen Private Sub Command1_Click() Dim Found As WIN32_FIND_DATA, Retval As Long, hFile As Long ' Suchen nach der ersten Datei hFile = FindFirstFile("c:\windows\*.*", Found) ' Wenn keine Datei vorhanden, Vorgang abbrechen If hFile = INVALID_HANDLE_VALUE Then MsgBox "Dieses Verzeichnis enthält keine Dateien oder Ordner", _ vbInformation, "Suche Abbrechen" Exit Sub End If Do Select Case CBool(Found.dwFileAttributes And vbDirectory) Case True ' Ordner Debug.Print "Ordner gefunden: " & Left$(Found.cFileName, InStr(1, _ Found.cFileName, vbNullChar) - 1) Case False ' Datei Debug.Print "Datei gefunden: " & Left$(Found.cFileName, InStr(1, _ Found.cFileName, vbNullChar) - 1) End Select ' Nach der nächsten Datei suchen Retval = FindNextFile(hFile, Found) DoEvents Loop Until Retval = 0 FindClose hFile End Sub Diese Seite wurde bereits 12.160 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung 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. |