ich bin auf der Suche nach einer Lösung ein Kompletes Verzeichniss mit Unterverzeichnis auszulesen.
Ich benötige den Dateinamen und das Anlagedatum in einer Tabelle.
Es können einige tausend Dateien in einigen 100 Ordnern sein.
Thomas
Private Sub FindFiles(ByVal strFolderPath As String, ByVal strSearch As String, _
ByRef lngFilecount As Long)
Dim WFD As WIN32_FIND_DATA, lngSearch As Long, strDirName As String
lngSearch = FindFirstFile(strFolderPath & "*.*", WFD)
If lngSearch <> INVALID_HANDLE_VALUE Then
GetFilesInFolder strFolderPath, strSearch, lngFilecount
Do
If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) Then
strDirName = Left$(WFD.cFileName, InStr(WFD.cFileName, Chr(0)) - 1)
If (strDirName <> ".") And (strDirName <> "..") Then _
FindFiles strFolderPath & strDirName & "\", strSearch, lngFilecount
End If
Loop While FindNextFile(lngSearch, WFD)
FindClose lngSearch
End If
End Sub
Private Sub GetFilesInFolder(ByVal strFolderPath As String, ByVal strSearch As String, _
ByRef lngFilecount As Long)
Dim WFD As WIN32_FIND_DATA, lngSearch As Long, strFileName As String
lngSearch = FindFirstFile(strFolderPath & strSearch, WFD)
If lngSearch <> INVALID_HANDLE_VALUE Then
Do
If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> _
FILE_ATTRIBUTE_DIRECTORY Then
strFileName = Left$(WFD.cFileName, InStr(WFD.cFileName, Chr(0)) - 1)
lngFilecount = lngFilecount + 1
Cells(lngFilecount, 1) = strFolderPath & strFileName
End If
Loop While FindNextFile(lngSearch, WFD)
FindClose lngSearch
End If
End Sub