Browse for File dialog box 1

[dfwelch]

It cannot be as difficult as I am seeing to get a Browse for File to open dialog box to pop up from an Access form! I just want a button next to a text box control. The text box will accept the location of the file, as in "C:\SomeFolder\thisfile.xls", where an Excel input file is located. I would also like to have a Browse for file button next to the box that will open a dialog box so the user can browse to the file and have the path filled into the text box.

The only solutions I seen take like six different functions! Is it really that complicated?!!?

 

[vbajock]

Yes. You have to make API calls to Windows to do it. The next version of Access will probably use the .Net framework, and this problem will come to the end. Until that day comes, we can only type, type, type.

 

[BGrego]

Actually there is a very easy way to do so...

Simply use the file dialog class:
I don't really feel like explaining it all, but its actually REALLY easy to use...here is a code snippit...


Private Sub cmdSelectInput_Click()
Dim varItem As Variant

With Application.FileDialog(msoFileDialogFilePicker)
'setup File Dialog
.AllowMultiSelect = True
.ButtonName = "Select"
.InitialView = msoFileDialogViewList
.Title = "Select Input Files"

'add filter for excel
With .Filters
.Clear
.Add "Excel Spreadsheets", "*.xls"
End With
.FilterIndex = 1

'display file dialog box
If .Show Then
'get selected files
For Each varItem In .SelectedItems
If Not (AddListItem(lstInput, False, varItem)) Then
ErrorMsgBox ("The input file (" & varItem & &quot is already selected. Try Again.&quot
End If
Next varItem
End If
If lstInput.ListCount > 0 Then
cmdRun.Enabled = True
End If
End With
End Sub

 

[vbajock]

Cool!