Deklaration: Declare Function FindNextFile Lib "kernel32.dll" _ Alias "FindNextFileA" ( _ ByVal hFindFile As Long, _ lpFindFileData As WIN32_FIND_DATA) 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 14.679 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 Juni 2024 Microsys Kramer Mausrad im Formular abschalten (Access) Deaktiviert das Mausrad in Access-Formularen. Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||||||
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. |