Selecting file location

[Julee]

Dear guys,

I would like to enable a user of MS Access database to select the path under which to save the pdf file. While pressing a button, the box should appear with the possibility to choose different paths for this pdf file. How would it be possible to do this?

Thanks a lot!

 

[ranman256]

Before you execute the save, you can get the path by runnin USERPICK1FILE()
REMEMBER YOU MUST ADD THE OFFICE LIBRARY in vbe menu, tools, references.

Public Sub PikFolder()
Dim vFile, vDir
vFile = UserPick1File()
vDir = Left(vFile, InStrRev(vFile, "\"))
MsgBox vDir
End Sub


Public Function UserPick1File()
Dim strTable As String
Dim strFilePath As String
Dim sDialog As String, sDecr  As String, sExt As String

'===================
'YOU MUST ADD REFERENCE : Microsoft Office ##.0 Object Library, in vbe menu, TOOLS, REFERENCES
'===================
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Title = "Locate a file to Import"
    .ButtonName = "SaveFolder"
    .Filters.Clear
    .Filters.Add "PDF Files", "*.pdf"
    '.Filters.Add "Excel Files", "*.xls;*.xlsx"
    .Filters.Add "All Files", "*.*"
    .InitialFileName = "c:\"
    .InitialView = msoFileDialogViewList    'msoFileDialogViewThumbnail
    
        If .Show = 0 Then
           'There is a problem
           Exit Function
        End If
    
    'Save the first file selected
    UserPick1File = Trim(.SelectedItems(1))
End With
End Function