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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen