Beispiel zur Execute-Methode (FileSearch-Objekt)
In diesem Beispiel wird im Ordner My Documents nach allen Dateien gesucht, die die
Dateinamenerweiterung .doc haben. Für jede gefundene Datei wird anschließend der Pfad und
der Name angezeigt. Die Liste der zurückgegebenen Dateien wird außerdem in aufsteigender
alphabetischer Reihenfolge sortiert.
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "*.doc"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
Sub zz()
Dim fs As Object, i As Integer, wks As Worksheet
On Error Resume Next
Set wks = Sheets("DateiListe")
On Error GoTo 0
If wks Is Nothing Then
Set wks = Sheets.Add(before:=Sheets(1))
wks.Name = "DateiListe"
End If
wks.Cells.Delete
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.Filename = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
wks.Cells(i, 1) = .FoundFiles(i)
'MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
Sub zz()
Dim fs As Object, i As Integer, wks As Worksheet
On Error Resume Next
Set wks = Sheets("DateiListe")
On Error GoTo 0
If wks Is Nothing Then
Set wks = Sheets.Add(before:=Sheets(1))
wks.Name = "DateiListe"
End If
wks.Cells.Delete
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.Filename = "*.doc"
.SearchSubFolders = True
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
wks.Cells(i, 1) = .FoundFiles(i)
'MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub