Need an ActiveX control for folder browse

[dbodell]

I need to find a good ActiveX control that can be downloaded for free that allows me to browse folders and select an object. What I am trying to do is to return the path of an object into my record. I've tried some good ones out there but they all are very expensive. Anyone have something inexpensive or free that they use?

[pbaldy]

Is this what you're after?

http://access.mvps.org/access/api/api0001.htm

[dbodell]

Not really. I'd rather use an existing activex control than code. Thanks though.

[pbaldy]

Sorry, don't know then. I avoid ActiveX controls; too twitchy in multi-user environments.

[orange]

Most people would avoid the activeX control as Paul says.

For simple file dialog you could use something like this if you don't like the mvps link.

'// Place In A Module
Public Function OpenFileDialog() As String
'// Single file return
'// Ref required:= Microsoft Office 11.0 Object Library

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd

.Title = "Select a File"
.Filters.Add "Text Files", "*.txt", 1
.Filters.Add "All Files", "*.*", 2
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
If .Show = True Then
OpenFileDialog = .InitialFileName & ".txt"
End If
End With

Set fd = Nothing
End Function