DateiVerzeichnis ComboBox
15.12.2006 11:49:23
Joe
ich benutze folgenden Code um aus einem Verzeichnis alle Dateinamen auszulesen und in einer Combobox ausgeben. Ich möchte aber zusätzlich zu den Dateinamen noch das Dateidatum auslesen und neben dem Dateinamen in der ComboBox anzeigen. Außerdem sollen die Dateien absteigend nach Datum sortiert sein. Hat jemand eine Idee?
Gruß Joe
Private Sub CommandButton1_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\")
Set fc = f.Files
For Each f1 In fc
UserForm1.ComboBox1.AddItem (f1.Name)
Next
UserForm1.ComboBox1.ListIndex = 0
End Sub
Anzeige