Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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