Making "Filters.Add" work in FilePicker

[VBAGrandpa]

Hi everyone!

I have been scratching my head over this simple problem for too long. Here's my VBA code (in Excel 2002):

With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Photos", "*.jpg; *.gif; *.bmp, 1"
.InitialFileName = PhotosPath
.Title = "Select a photo to use"
.AllowMultiSelect = False
.Show
End With

The problem is the the file dialog comes up with the default "All Files *.*", totally ignoring my Filters.Add specification. Can anyone tell me what stupid mistake I am making here?

Thanks in advance
Dave G

 

[SkipVought]

Hey VBAGrandpa -- ME TOO!

try the GetOpenFilename method

    fileToOpen = Application _
        .GetOpenFilename("Photos (*.bmp;*.gif;*.jpg), *.bmp;*.gif;*.jpg")
    If fileToOpen <> False Then
        MsgBox &quot;Open &quot; & fileToOpen
    End If

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[VBAGrandpa]

Thanks, Skip.

Does this mean that the method I have been trying to use can't do the file filtering I need?

Dave G

 

[SkipVought]

I dunno.

There are lots of ways to skin a cat.

I know that this one works!

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com