Ich brauch wiedereinmal eure Hilfe.
Ich möchte gerne einen Ordner (C:\Test) auslesen und alle vorhandenen Excel-Datein in einer Combobox ausgeben. Leider funktioniert das nicht wirklich.
Zur Sicherheit zeig ich euch den Code den ich verwende, und ihr könnt mir sagen was ich falsch mache. Danke für eure Hilfe, Thomas
Private Sub Daten_auslesen()
Dim ASF As Object
Dim i As Integer
Set ASF = Application.FileSearch
With ASF
ChDir "C:\Test" ' Verzeichnis wechseln
.NewSearch ' Neue Suche beginnen
.LookIn = "C:\Test" ' Suchen in <<Pfad>>
.Filename = "*.xls" ' Alle Dateien anzeigen
With Userform1.Combobox1
.AddItem (FoundFiles)
End With
End With
End Sub