wie kann ich alle Access-Datenbanken (*.mdb) eines Ordners in eine Listbox einlesen. Mit Filesearch klappt das irgendwie nicht.
Danke, Martin
Sub Einlesen()
Dim lstrDatName As String
DatName = Dir("DeinPfad\*.mdb")
Do Until DatName = ""
Listbox1.AddItem DatName
DatName = Dir
Loop
End Sub
Sub Einlesen()
Dim lstrDatName As String
lstrDatName = Dir("DeinPfad\*.mdb")
Do Until lstrDatName = ""
Listbox1.AddItem lstrDatName
lstrDatName = Dir
Loop
End Sub