Verzeichnisinhalte nur teilweise
Klaus
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
Anzeige