Using SaveAs type FileDialog to enter a new file name?

[jamjar]

I am trying to use the SaveAs type FileDialog to allow the user to enter a file name. It's only letting me choose exisiting files. Is there any way to use the FileDialog to allow the user to select a folder and type in a file name, returning the full path as a string?
This is what I've tried (MS Access 2002, MS Office 10.0 Object Library):

Function UserSelectedSaveAs(sFilter As String, sFiltName As String, Optional sMsgTitle As String, Optional sInitFile As String) As String
 Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.Title = sMsgTitle
    fd.InitialFileName = sInitFile
    fd.Filters.Clear
    fd.Filters.Add sFiltName, sFilter, 1
    fd.Show
    If fd.Show = -1 Then
        UserSelectedSaveAs = fd.SelectedItems(1)
     Else
        'user cancelled
        MsgBox "Cancelled file save."
        Exit Function
    End If
 
    Set fd = Nothing
End Function
 

James

[ADezii]

I am trying to use the SaveAs type FileDialog to allow the user to enter a file name. It's only letting me choose exisiting files. Is there any way to use the FileDialog to allow the user to select a folder and type in a file name, returning the full path as a string?
This is what I've tried (MS Access 2002, MS Office 10.0 Object Library):

Function UserSelectedSaveAs(sFilter As String, sFiltName As String, Optional sMsgTitle As String, Optional sInitFile As String) As String
 Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.Title = sMsgTitle
    fd.InitialFileName = sInitFile
    fd.Filters.Clear
    fd.Filters.Add sFiltName, sFilter, 1
    fd.Show
    If fd.Show = -1 Then
        UserSelectedSaveAs = fd.SelectedItems(1)
     Else
        'user cancelled
        MsgBox "Cancelled file save."
        Exit Function
    End If
 
    Set fd = Nothing
End Function
 

James

Is there any way to use the FileDialog to allow the user to select a folder and type in a file name, returning the full path as a string?

Unfortunately, No!
The msoFileDialogOpen and msoFileDialogSaveAs constants, which refer to the FileDialog Types, are not supported in Microsoft Access.

[jamjar]

Thanks for the confirmation ADezii.

Based on that I did some more searching and found some code at http://www.mvps.org/access/api/api0001.htm (a custom file open/save dialog that will accepts user typed input and returns a file path string) which seems to solve the problem.

cheers-

James