filedialog error on form

[ProgramError]

I'm hoping to use the following to get a path to a file but I get an error with the line. Dim fd As FileDialog
"User defined type not defined"
I suspect it may need a reference setting but I'm not sure which it is. Can anyone help?

Dim sFilePath As String
Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Filters.Clear
fd.Show

sFilePath = fd.SelectedItems(1)
txtFilePath.SetFocus
txtFilePath.Text = sFilePath

Ian Mayor (UK)
Program Error
If people say I have bad breath, then why do they continue to ask me questions and expect me to answer them?

 

[PHV]

You have to reference the Microsoft Office x.0 Object Library.

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

 

[ProgramError]

Thanks PHV. I had Access library referenced but not office.

Ian Mayor (UK)
Program Error
If people say I have bad breath, then why do they continue to ask me questions and expect me to answer them?