Filter in msoFileDialogSaveAs

[radek225]

have a function that shows me the saving path choosen by user
The problem is I can't set filter to *accdb. If I work with msoFileDialogFilePicker then .filter property works. What should I do to set filter *accdb in msoFileDialogSaveAs?

Function Plik(TytulOkna As String, TytulPrzycisku As String, Filtr As String) As String
    Dim wskazMiejsce As FileDialog
    Set wskazMiejsce = Application.FileDialog(msoFileDialogSaveAs)
    wskazMiejsce.Title = TytulOkna
    wskazMiejsce.ButtonName = TytulPrzycisku
    wskazMiejsce.AllowMultiSelect = False
    wskazMiejsce.InitialFileName = "wniosek.accdb"
    If wskazMiejsce.Show = -1 Then
        WskazPlik = wskazMiejsce.SelectedItems(1)
        MsgBox WskazPlik
    End If
End Function

 

[Ranman256]

.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

 

[cyanidem]

You can't directly set filters on msoFileDialogSaveAs.
However if you set the InitialFileName to *.accdb then dialog will force that extension. The filter will still say "All Files" but it will not show files with different extensions.

 

[radek225]

You can't directly set filters on msoFileDialogSaveAs.
However if you set the InitialFileName to *.accdb then dialog will force that extension. The filter will still say "All Files" but it will not show files with different extensions.

Why? When you saving some file e.g. from ms office filter is on

you mean wskazMiejsce.InitialFileName = "*.accdb"? - doesn't work. I still see another files

 

[cyanidem]

Why? Because MS says so here: https://msdn.microsoft.com/en-us/library/aa190813(v=office.10).aspx

Note A run-time error will occur if the Filters property is used in conjunction with the Clear, Add, or Delete methods when applied to a Save As FileDiaog object. For example, Application.FileDialog(msoFileDialogSaveAs).Filters.Clear will result in a run-time error.

 

[radek225]

Why? Because MS says so here: https://msdn.microsoft.com/en-us/library/aa190813(v=office.10).aspx

Ok, what about InitialFileName, how should i set it correctly to have *accdb?

 

[Frothingslosh]

There's always the API: http://access.mvps.org/access/api/api0001.htm

 

[cyanidem]

you mean wskazMiejsce.InitialFileName = "*.accdb"? - doesn't work. I still see another files

Yes, that. And it works for me, I can see only accdb files and "Save as type" shows "All files (*.*)"

 

[radek225]

Yes, that. And it works for me, I can see only accdb files and "Save as type" shows "All files (*.*)"

Could you show me your sample?

 

[cyanidem]

My sample is exactly your sample. Only thing I had to do is declare WskazPlik variable as it's not in your function.

Public Function Plik(TytulOkna As String, TytulPrzycisku As String, Filtr As String) As String
    Dim wskazMiejsce As FileDialog
    Dim WskazPlik As Variant
    Set wskazMiejsce = Application.FileDialog(msoFileDialogSaveAs)
    wskazMiejsce.Title = TytulOkna
    wskazMiejsce.ButtonName = TytulPrzycisku
    wskazMiejsce.AllowMultiSelect = False
    wskazMiejsce.InitialFileName = "*.accdb"
'    wskazMiejsce.Filters.Item(0) = "*.accdb"
    If wskazMiejsce.Show = -1 Then
        WskazPlik = wskazMiejsce.SelectedItems(1)
        MsgBox WskazPlik
    End If
End Function
 
Private Sub Command0_Click()
Dim nazwa As String
    nazwa = Plik("title", "zapisaj", "*.accdb")
End Sub

And as you can see below it shows only accdb files: