Dateien aus Verzeichnis auflisten
13.08.2003 11:06:16
Mario
diese Formel listet die Dateien eines in Zelle A1 eingegebenen Pfad aus, erstellt eine Link und zeigt das Dateidatum in der nächsten Spalte an.
Sub ScanDir()
Dim lRow As Long, lCounter As Long
Dim iCol As Integer
lRow = 1
iCol = 1
With Application.FileSearch
.LookIn = Range("A1").Value
.SearchSubFolders = True
.Execute
For lCounter = 1 To .FoundFiles.Count
lRow = lRow + 1
If lRow = 65537 Then
lRow = 2
iCol = iCol + 1
End If
Cells(lRow, iCol).Value = .FoundFiles(lCounter)
Cells(lRow, iCol).Hyperlinks.Add _
Cells(lRow, iCol), .FoundFiles(lCounter)
Cells(lRow, iCol + 1).Value = FileDateTime(.FoundFiles(lCounter))
Next lCounter
End With
Columns.AutoFit
End Sub
Das Ergebnis sieht so aus.
D:\Datenbank\Sicherheitskopien\
D:\Datenbank\Sicherheitskopien\2170124.xls 11.08.2003 12:18
D:\Datenbank\Sicherheitskopien\2170125.xls 11.08.2003 12:59
D:\Datenbank\Sicherheitskopien\2170129.xls 11.08.2003 21:37
D:\Datenbank\Sicherheitskopien\2170130.xls 11.08.2003 21:48
D:\Datenbank\Sicherheitskopien\2170136.xls 11.08.2003 21:55
D:\Datenbank\Sicherheitskopien\2170137.xls 11.08.2003 22:02
D:\Datenbank\Sicherheitskopien\2170138.xls 11.08.2003 22:04
D:\Datenbank\Sicherheitskopien\2170154.xls 12.08.2003 22:46
D:\Datenbank\Sicherheitskopien\2170155.xls 12.08.2003 22:58
D:\Datenbank\Sicherheitskopien\2170156.xls 12.08.2003 23:00
D:\Datenbank\Sicherheitskopien\2170157.xls 12.08.2003 23:03
D:\Datenbank\Sicherheitskopien\Mappe1.xls 13.08.2003 10:01
D:\Datenbank\Sicherheitskopien\Test_Datei.xls 11.08.2003 22:04
Ist es möglich noch zusätzlich nur den Namen der Datei in einer neuen Spalte anzeigen zu lassen? z.B.
D:\Datenbank\Sicherheitskopien\Mappe1.xls 13.08.2003 10:01 Mappe1
Vielen Dank
Gruss Mario