Hey math,
EDIT: Ik zie dat Dizzl je al een antwoord heeft gegeven voor Access.
Mijn macro is voor Excel, ik heb er geen benul van of dit ook toepasbaar is als macro in Access, want van Access ken ik nougaballen
Deel van code stond reeds in mijn vorige macro:
Dus in Excel:
Sub ZoekBestandenInMap()
Dim myValue As Variant, Dim File As Variant
myValue = inputbox("Geef de naam op van de map, bvb C:\Test\")
For a = 1 To 1000
Path = myValue
File = Dir(Path)
Do Until File = ""
ActiveSheet.Cells(a, 1).Value = Path & File
File = Dir()
Loop
Next
End Sub
SoftAid