getFileOpenName "versus" FileDialog

[PeteR61]

Hello,
This question is about opening a file with the file dialog window in powerpoint.

In excel using following code works great:

fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If

In powerpoint it doesn't. It gives an error. Pitty since I want to pass a filter as well. Currently I use temporary code like this to get something going:

Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen)
    'show the file open dialog
    With dlgOpen
        .AllowMultiSelect = False
        .InitialFileName = "*.swf"
        .Show
    End With

So I want a file filter on this one as well. But I do not know how to be able to put a "Files of Type" filter in here like in excel.

Thanks

 

[mp9]

An example of how to mod your code:

Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen)
    'show the file open dialog
    With dlgOpen
         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1        .AllowMultiSelect = False
        .InitialFileName = "*.swf"
        .Show
    End With

http://www22.brinkster.com/accessory/

 

[PeteR61]

That worked just the way I wanted.
My problem is solved.

Thanks