Get file in powerpoint

[dgreenwo]

I'm running a macro in powerpoint97 and/or 2000 and want to browse to a file, and then open it for reading.

In excel I could use -->
Application.GetOpenFilename("All files(*.*,*.*&quot

Is there an equivalent expression in powerpoint?

Dave

 

[VBOnly]

In Office 2002, Application.FileDialog work in all. Use "msoFileDialogFilePicker" to select files to process yourself.

Function GetFilename() As String
With Application.FileDialog(msoFileDialogFilePicker)
.ButtonName = "Save"
.Filters.Clear
.Filters.Add "all", "*.*"
.Filters.Add "text", "*.txt"
.FilterIndex = 2
If .Show = -1 Then
If .SelectedItems.Count > 0 Then
s = .SelectedItems(1)
GetFilename = s
End If
End If
End With
End Function