ich habe ein seltsames Problem.
Mit folgendem Code lese ich die Dateinamen eines Ordner mit seinen sämtlichen Unterordnen aus. Das funktioniert auch einwandrei.
Lediglich scheint dieser Code Probleme mit .htm bzw. .html Probleme zu haben.
Woran liegt das? Er findet ja teilweise .htm Dateien, teilweise eben aber nicht...
Alle anderen Dateien findet er.
Sub Einlesen()
Dim fSearch As FileSearch
Dim wkb As Workbook
Dim strPath As String
Dim iCnt As Integer
Dim index As Variant
strPath = "F:\HP\Planungshandbuch\"
Set fSearch = Application.FileSearch
With fSearch
.LookIn = strPath
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Filename = "*"
.Execute
For iCnt = 1 To .FoundFiles.Count
Worksheets(1).Cells(iCnt + 2, 2) = .FoundFiles(iCnt)
Next iCnt
End With
End Sub
Vielen Dank für eure Hilfe
Gruß Jonatan