Filter in msoFileDialogSaveAs

radek225 · Jan 6, 2016

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?

Code:

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 · Jan 6, 2016

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

cyanidem · Jan 6, 2016

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 · Jan 6, 2016

cyanidem said:
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 · Jan 6, 2016

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 · Jan 6, 2016

cyanidem said:
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 · Jan 6, 2016

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

cyanidem · Jan 7, 2016

radek225 said:
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 · Jan 8, 2016

cyanidem said:
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 · Jan 8, 2016

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

Code:

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:

Filter in msoFileDialogSaveAs

radek225

Registered User.

Ranman256

Well-known member

cyanidem

Nieóhfytny jaszczomp

radek225

Registered User.

cyanidem

Nieóhfytny jaszczomp

radek225

Registered User.

Frothingslosh

Premier Pale Stale Ale

cyanidem

Nieóhfytny jaszczomp

radek225

Registered User.

cyanidem

Nieóhfytny jaszczomp

Similar threads

Users who are viewing this thread