Open Windows File dialog box using VBA?

Hi Joanne

I had exactly the same issues a couple of weeks ago. The code I used is:

Private Sub Attach_Click()

Dim varItem As Variant
Dim strPath As String
Dim filePicker As FileDialog

Set filePicker = Application.FileDialog(msoFileDialogFilePicker)

With filePicker

'setup File Dialog'
.AllowMultiSelect = False
.ButtonName = "Select"
.InitialView = msoFileDialogViewList
.Title = "Select File"
.InitialFileName = "G:\z- 2010 General\Information Systems"

'add filter for all files'
With .Filters
.Clear
.Add "All Files", "*.*"
End With
.FilterIndex = 1

'display file dialog box'
.Show

End With

If filePicker.SelectedItems.Count > 0 Then

Dim selectedFile As String
selectedFile = filePicker.SelectedItems(1)

Me.PathToFile = selectedFile

End If

End Sub

Hope this helps!

David

I should also add that the

.InitialFileName = "G:\z- 2010 General\Information Systems"

is where you set your C:\Drive

and the

Me.PathToFile = selectedFile

is where the chosen file location is put into the form/field.

David