DateiSuche
14.02.2013 12:11:45
haw
ich habe folgenden Code, der mir als FileSearch-Ersatz dient:
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
Wie kann ich auch die Unterordner miteinbeziehen?
Vielen Dank
Heinz