FileDialog Property

Returns a FileDialog object which represents a single instance of a file dialog box.

expression   Required. An expression that returns one of the objects in the Applies To list.

DialogType  Required MsoFileDialogType. The type of dialog box to open.

Example

The following example sets the applications dialog type to a Save As dialog box and displays the new dialog box.

Sub ShowSaveAsDialog()
'Display the Save As dialog box

    Dim dlgSaveAs As FileDialog
    'Set the dialog type
    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    'Display the dialog
    dlgSaveAs.Show
End Sub

The following example displays the Open dialog box, and allows the user to open multiple files at the same time.

Sub ShowOpenDialog()
'Display the Open dialog box

    Dim dlgOpen As FileDialog
    'Set the dialog box type to Open
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    'Display the dialog box
    With dlgOpen
        .AllowMultiSelect = True
        .Show
    End With
End Sub

The following example displays the Open dialog box, and allows the user to open multiple files at the same time. If the documents are HTML files, they are opened in Microsoft FrontPage.

Sub ShowOpenDialog()
'Display the Open dialog box

    Dim dlgOpen As FileDialog
    'Set the dialog box type to Open
    Dim i as Integer
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    'Display the dialog box
    With dlgOpen
        .AllowMultiSelect = True
        .Show
    End With
    For i = 1 To dlgOpen.SelectedItems.Count
        If Right(dlgOpen.SelectedItems(i), 3) = "htm" Then
            ActiveWebWindow.PageWindows.Add dlgOpen.SelectedItems(i)
        End If
    Next
End Sub