File Dialog 1

[GLENEE]

The following should pop up the file dialog folder picker
Dim fd As FileDialog
Dim varSelectedItems As Variant
Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd
.Title = "Link CATSData file"
.InitialFileName = "CATSData"
.InitialView = msoFileDialogViewDetails
.ButtonName = "Link"
.Filters.Add Description:="Access Databases (*.mdb)", Extensions:="*.mdb"
.AllowMultiSelect = False

End With

The error i get is 438 "object does not support this property etc" - at the Filters line

I'm using access 2000. Any advice? thanks

ps: how do you show the above as a block of code when composing these questions, i've forgotten how to do it!

 

[PHV]

I think the problem is here:
msoFileDialog[!]Folder[/!]Picker

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GLENEE]

Yea, i thinks thats done it - use file instead of folder.
Thanks