You can use the Add method of the FileDialogFilters collection object to create your own list of filter : FileDialog « File Path « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. File Path
  3. FileDialog

You can use the Add method of the FileDialogFilters collection object to create your own list of filter

 
Sub fileDlg()
    Dim fd As FileDialog
    Dim imagePath As String
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "All files", "*.*"
        .Filters.Add "Image", "*.jpg", 1
        .FilterIndex = 1
        .InitialFileName = ""
        .Title = "Select JPEG file"
        If .Show = -1 Then       'User pressed action button
            imagePath = .SelectedItems(1)
        End If
    End With
End Sub








Related examples in the same category

1.The FileDialog Object
2.Set the AllowMultiSelect property of the dialog box to allow multiple selections in the dialog box
3.Open File Open Dialog and get the selection (Dialog Types Used with the FileDialog Object)
4.Use the SelectedItems property of the FileDialog object to return the FileDialogSelectedItems collection.
5.Get selected paths
6.FileDialog with JPG file filter
7.FileDialogFilters
8.User selects path to save HTML files
9.Displays a dialog box that allows the user to select a directory. The selected directory name (or "Canceled") is then displayed by using the MsgBox function.