compile error defining 'filedialog'..

[Guest]

i'm still getting compile error on dim stmt below, even after setting
reference to MS Lib 11..any ideas?

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog( _
FileDialogType:=msoFileDialogOpen)

With dlgOpen
.AllowMultiSelect = True
.Show
End With

 

[Douglas J. Steele]

My recommendation would be to scrap the dialog, and call the API directly.
There's complete code at http://www.mvps.org/access/api/api0001.htm

Far less problematic.