You can use the built in file dialog. It been there since access 2003.
Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
f.Show
MsgBox "file choose was " & f.SelectedItems(1)
You can late bind if you wish:
above needs: Microsoft Office 14.0 Object library
If you remove the reference to the 14.0 object library, then the following
code will work without any references:
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
f.Show
MsgBox "file choosen = " & f.SelectedItems.Count
So, above works in runtime or regular edition from 2003 onwards, and also works for either 32 or 64 bit editions of access 2010.
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…