Verzeichnisinhalte nur teilweise
Klaus
Hallo Excelfreunde,
eine aus diesem Forum stammende, u.a. Prozedur habe ich etwas abgeändert. Sie soll alle Dateien in einer Tabelle auflisten. Sie listet z. B. alle doc- und xls-Dateien auf aber nicht z.B. xlk-Dateien.
Mein Wunsch ist natürlich alle aufzulisten.
Ich bitte um Unterstützung und bedanke mich schon mal vorab.
Sub Dateien_einlesen()
Dim I As Integer, Pfad As String
Dim Ws1 As Worksheet
On Error Resume Next
Set Ws1 = Sheets("Ws1")
Pfad = "C:\LöschTest\"
If Err > 0 Then
MsgBox Error
Exit Sub
End If
On Error GoTo 0
Ws1.Cells.Clear
With Application.FileSearch
.NewSearch
.LookIn = Pfad
' Dateiendung oder auch Dateinamensbestandteile _
(auch * und ? möglich) definieren WIE?
.Filename = "?*.*" 'Trim(Range("B3").Value)
' Unterverzeichnisse mit berücksichtigen
.SearchSubFolders = True
If .Execute > 0 Then
For I = 1 To .FoundFiles.Count
Ws1.Cells(I, 1) = .FoundFiles(I)
Next I
Else
MsgBox "keine entsprechenden Dateien gefunden"
End If
End With
Exit Sub
' Ws1.Columns("A:A").Replace What:=Ws1.Range("B2") & "\", Replacement:="", LookAt:=xlPart, _
' SearchOrder:=xlByColumns, MatchCase:=False
' Ws1.Columns("A:A").Sort Key1:=Ws1.Range("A1"), Order1:=xlAscending, Header:=xlNo
End Sub