Question `Save as`?

[tinoco]

Hi!
I`m working with the access 2000.
I`m making the exports to different formats but i make them to a specific folder that i specifed..
how can i make a `save as`, for the users can choose the destination of their export?
Thanks

 

[PHV]

This is how I implement a browse for folder function:

Function PickFolder(strStartDir As Variant) As String
    Dim SA As Object, f As Object
    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

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244