Variable File Dialog Filter

Question

I'm trying to use the following code and am getting an error on the Filters.add line

    With Application.FileDialog(msoFileDialogFilePicker)

        .Title = "Select Checklist to Import"

        .InitialFileName = STRDEFAULTDIRECTORY

        .InitialView = msoFileDialogViewList

        .Filters.Clear   '1/24/2012  Barb Reinhardt

        .Filters.Add "Excel Files", myFilter      

        .ButtonName = "Add Checklist"

        If .Show = -1 Then

            txtChecklistFile.Value = .SelectedItems(1)

        Else

        End If

    End With

if myFilter = "*.xls*", I have no issues, however if I define myFilter to be "*6300*.xls*", I get error 5 (Invalid procedural call or argument) in procedure.  

I'm sure it's something silly, but I just don't see it.

Answer 1

You can only add filters of the type *.extension.

If you want to impose restrictions on the file name, use Application.FileDialog(msoFileDialogOpen) and specify the InitialFileName argument, for example:

...

    myFilter = "*.xls*"

    With Application.FileDialog(msoFileDialogOpen)

         .Title = "Select Checklist to Import"

         .InitialFileName = "*6300*.xls*"

         .InitialView = msoFileDialogViewList

         .Filters.Clear   '1/24/2012  Barb Reinhardt

         .Filters.Add "Excel Files", myFilter

...

Answer 2

Thanks.   That confirms what I found.