UserForm ComboBox - Eintrag fehlt
Tobias
Folgendes Problem:
Ich möchte alle in einem Verzeichnis vorhandenen Dateien auslesen und in einer ComboBox zur Weiterverarbeitung auflisten.
So weit so einfach, hier ist mein bisheriges Machwerk:
Private Sub CommandButton1_Click()
Dim File As String
Dim x As Long
Dim FileList()
File = Dir("c:\temp\*.xls")
Do While File <> ""
x = x + 1
ReDim Preserve FileList(1 To x)
File = Dir
FileList(x) = File
Loop
ComboBox1.List = FileList
End Sub
Prinzipiell scheint das Teil zu funktionieren (egal ob elegant oder nicht), allerdings fehlt in der ComboBox immer eine Datei. Sind z.B. 3 .xls Dateien im Ordner vorhanden, stehen in der ComboBox am Ende nur 2. Ist gar nur eine Datei im Ordner, ist die ComboBox leer. Es fehlt immer der alphabetisch erste Dateiname.
Ich stehe gerade total auf dem Schlauch obwohl ich davon ausgehe, dass die Lösung total simpel ist. Oder ist etwa doch der ganze Ansatz komplett falsch?
Vielen Dank im voraus
Tobias
Anzeige