Help with FileDialog Access 2003

[Terry Olsen]

I'm trying to open a Browse for file dialog box. But I get errors:

1. Dim statement gives me a "Type Mismatch" error.
2. When I remove the Dim statement, the Set statement give me a "method
failure" error.

Can anyone help? Thanks.

Public Function BrowseForExe() As String
Dim dlgOpen As Application.FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)

With dlgOpen
.AllowMultiSelect = False
.Show
BrowseForExe = dlgOpen.Path
End With

End Function

 

[Herbert Chan]

I'm not sure, how about dim it as an object only, i.e.,

Dim dlgOpen As Object

Herbert

 

[Douglas J. Steele]

Far better to use the API approach outlined in
http://www.mvps.org/access/api/api0002.htm at "The Access Web"

 

[Terry Olsen]

Hey, that worked great. Thanks!

Far better to use the API approach outlined in
http://www.mvps.org/access/api/api0002.htm at "The Access Web"