Save to specific location defined by the user 3

[robojeff]

I am creating excel spread sheets from within Access and since moving the database onto the server, I would like prompt the user to specify where to save their spreadsheets along with the browse function much like other Windows applications have.

Is there an easy way to do this or a canned function call in Windows to handle the browsing and choosing of a destination folder from within Access (2003)?

Thanks

 

[mrmovie]

You may try this function:
Function PickFolder(strStartDir)
Dim SA, F
Set SA = CreateObject("Shell.Application")
Set F = SA.BrowseForFolder(0, "Choose a folder", 0, strStartDir)
If (Not F Is Nothing) Then
PickFolder = F.Items.Item.path
End If
Set F = Nothing
Set SA = Nothing
End Function

 

[robojeff]

Thanks mrmovie-

very nice ...

 

[PHV]

The original code was posted here:
thread329-1185564

 

[mrmovie]

yes apologies, that was pulled out of my useful vbscript function text files...which came from various useful posts, I have to admit of few of them were posted by PHV