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

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

FileDialogFilters

 
     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
               .clear
               .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
Problem:
         MsgBox "That was not a valid picture"
     End Sub

 

Related examples in the same category