DateiSuche

Sub Dateien_Listen()
Dim fs As Object
Dim fo As Object
Dim f As Object
Dim ws As Worksheet
Dim lZeile As Long
Dim Pfad$, Suffix$
Dim wksquelle As Worksheet
Pfad = ThisWorkbook.path & "\Details-Forecast"
Pfad = "E:\EXCEL\Codebook\Dateien"
Set ws = ThisWorkbook.Worksheets("Dateiliste")
Set fs = CreateObject("Scripting.FileSystemObject")
Set fo = fs.GetFolder(Pfad)
Suffix = "xls"
For Each f In fo.Files
If fs.GetExtensionName(f.Name) = Suffix Then
lZeile = lZeile + 1
ws.Cells(lZeile, 1).Value = f.path
ws.Cells(lZeile, 2).Value = f.Name
End If
Next
End Sub