How to allow user to select file 1

[JoeSmoe55]

Hello,

I am using Access 2003 and I want to open a form that will allow the user to peruse through the filesystem and select a file, which control should I use? Is there a premade control given by windows? This would seem to be a common thing but I haven't a clue where to begin. Thank you kindly.

Joe

 

[hwkranger]

Public Function fPickFolder(str_StartDir) As String
'Declarations
Dim objshell As Object
Dim objFile As Object

'initializations
Set objshell = CreateObject("Shell.Application")
Set objFile = objshell.BrowseForFolder(0, "Select a Folder", 0, str_StartDir)

'if objfile exists then get the folder
If (Not objFile Is Nothing) Then
fPickFolder = objFile.Items.Item.Path
End If

'release variables
Set objshell = Nothing
Set objFile = Nothing

End Function

Randall Vollen
National City Bank Corp.

 

[hwkranger]

Oops you want a file, not a folder -- You'll have eto write a function/class to handle that.

Randall Vollen
National City Bank Corp.

 

[rubbernilly]

You can use a drivelist box, and a directory listbox, but you are really recreating the wheel when you add all the programming to tie them together.

VB has an object to automate the Common File Open/Save box, but I don't know of a clean version of that control in VBA.

instead, I normally use code like this:

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

HTH

 

[StarPassing]

Try code in this link. It's much better.

http://support.microsoft.com/default.aspx?scid=kb;en-us;824272