FileDialogFilters : FileDialog « File Path « VBA / Excel / Access / Word


     Private Sub cmdGetFile_Click()
         Dim fd As FileDialog
         Dim ffs As FileDialogFilters
         Dim vItem
         On Error GoTo Problem
         Set fd = Application.FileDialog(msoFileDialogOpen)
         With fd
             Set ffs = .Filters
             With ffs
               .add "Pictures", "*.jpg"
             End With
             .AllowMultiSelect = True
             If .show = False Then Exit Sub
             For Each vItem In .SelectedItems
               Debug.Print vItem
             Next vItem
         End With
         Exit Sub
         MsgBox "That was not a valid picture"
     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.You can use the Add method of the FileDialogFilters collection object to create your own list of filter
6.Get selected paths
7.FileDialog with JPG file filter
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.