innerhalb eines umfangreicheren Projektes möchte ich xls-Dateien in einem Ordner auslesen und in einem Listenfeld anzeigen. Mit Unterstützung des Forumarchives habe ich das auch prima hinbekommen. Nun möchte ich in weiteren Spalten des Listenfeldes das Erstellungsdatum und den Autor der jeweiligen Datei hinzufügen. Für dieses Problem - die Eigenschaften geschlossener Mappen auszulesen und in das Listenfeld einzutragen - bin ich leider noch nicht fündig geworden.
Hier mein bisheriger Code (in dem zusätzlich die gefundenen Dateinamen vor der Anzeige bearbeitet werden):
Sub DateiListe()
Dim Fs As FileSearch
Dim iCounter As Integer
Dim sPfad As String
Dim Ganze As String
Dim Trennpos As Integer
Dim Länge As Integer
Dim sDatei As String
Dim DateiAutor As String
Dim ErstellDatum As Date
sPfad = Speicherpfad
Set Fs = Application.FileSearch
fmÖffnen.LBoxDateien.Clear
With Fs
.LookIn = sPfad
.FileType = msoFileTypeExcelWorkbooks
.Filename = "*test_*"
.Execute
For iCounter = 1 To .FoundFiles.Count
Ganze = .FoundFiles(iCounter)
Trennpos = InStr(Ganze, "_")
Länge = Len(Ganze)
sDatei = Mid(Ganze, Trennpos, Länge)
fmÖffnen.LBoxDateien.AddItem (sDatei)
Next iCounter
End With
End Sub
Wer kann mir weiterhelfen?
Thomas