File Directory in VBA

[RayMilhon]

It's been several years since I've done this and I don't remember exactly how I did it. I need to be able to prompt a user for a file. Where the user gets a dialog that looks and functions similar to Windows Explorer allowing the user to select the required file. Giving the path and file name of the file required. I just can't remember how I did it. It was in Access 2000 or 2003. Hasn't come up since until now. Can anybody point me in the right direction. Thought it was the File System Object but looking at the samples I'm not so sure anymore.

Thanks

[John_G]

Here is a function I wrote to do just that:

Function Select_File(Current_Location As Variant, Dialog_Title As String) As Variant
  On Error GoTo errproc
  Dim CurrentProcedure As Variant
  CurrentProcedure = "Select_File"
  Dim fd As FileDialog
  Dim ReturnPath As Variant, ReturnValue As Integer
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  '
  '  Initialize the directory with the current value
  '
  If IsNull(Current_Location) Then
    fd.InitialFileName = "C:\"
  Else
    fd.InitialFileName = Current_Location
  End If
  fd.title = "Select a file for " & Dialog_Title
  ReturnValue = fd.Show
  If ReturnValue <> 0 Then
    '
    ' Dialog was not closed with "Cancel"
    '
'    MsgBox "Returned Value = " & ReturnValue
    Select_File = fd.SelectedItems(1)
  Else
    '
    ' Return value is the same as the initial value
    '
    Select_File = Current_Location
  End If
  Set fd = Nothing
   
  Exit Function
errproc:
   ' whatever error processing you need
End Function