AW: Windows-Suchergebnisse in Excel einlesen
25.08.2005 16:19:12
Matthias
Hallo Bossi,
Sub suchen()
Dim i As Long, zeile As Long
Dim n As String
Dim pos As Integer
Cells.ClearContents
Cells(1, 1) = "Dateiname"
Cells(1, 2) = "Pfad"
Cells(1, 3) = "Änderungdatum"
zeile = 1
With Application.FileSearch
.NewSearch
.LookIn = "d:\xl"
.Filename = "*.*"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
n = .FoundFiles(i)
Select Case UCase(Right(n, 4))
Case ".123", ".XLS"
zeile = zeile + 1
pos = InStrRev(n, "\")
Cells(zeile, 1) = Mid(n, pos + 1)
Cells(zeile, 2) = Left(n, pos - 1)
Cells(zeile, 3) = FileDateTime(n)
End Select
Next i
End With
End Sub
FileDateTime() kannst du auch zur Filterung verwenden...
Gruß Matthias