Changing filters in a dialog box?

Hello,

The file filter in the following code works well. When I open the dialog box I see all the *.txt file types....

Sub SelectFiles()
     Dim iFileSelect As FileDialog
    
    Set iFileSelect = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant

    iFileSelect.Filters.Clear
    iFileSelect.Filters.Add "Text files", "*.txt"
    
     If iFileSelect.Show = -1 Then
            
         For Each vrtSelectedItem In iFileSelect.SelectedItems
                MyPath = vrtSelectedItem   ' MyPath will have the filename the program is exported to
          Next vrtSelectedItem
            
      End If
        
    'Set object variable to Nothing
    Set iFileSelect = Nothing

End Sub

However, the new SelectFiles() function needs to be flexible enough so that I can pass it a variable and based on that variable
I can alter the file filter. Something like this:

Sub SelectFiles(FilterType as integer)
     Dim iFileSelect As FileDialog
    
    Set iFileSelect = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant

    iFileSelect.Filters.Clear
     
' new part ============================================
    if FilterType = 1 then
        iFileSelect.Filters.Add "Text files", "*.txt"
    Elseif FilterType = 2 then
        iFileSelect.Filters.Add "User files", "User*.h"    
    EndIf

' ==================================================

     If iFileSelect.Show = -1 Then
            
         For Each vrtSelectedItem In iFileSelect.SelectedItems
                MyPath = vrtSelectedItem   ' MyPath will have the filename the program is exported to
          Next vrtSelectedItem
            
      End If
        
    'Set object variable to Nothing
    Set iFileSelect = Nothing

End Sub

The above gives a runtime error 5 when FilterType = 2 ?

However, the above works if I do:

 Elseif FilterType = 2 then
     iFileSelect.Filters.Add "User files", "*.h"    
 EndIf

But I need it to filter files only starting with "User" ... so all files like : "User*.h" ???

Is there straight forwards approach to this?

Thanks all in advance for your help!
Rn

Not using msoFileDialogFilePicker, unfortunately.

You can read the files of a selected directory and add them to a list on a userform if they meet your needs eg

Public strF As String

Sub UserformCode()
    
    Dim fNames() As String
    Dim objFSO As Scripting.FileSystemObject
    Dim objFolder As Scripting.Folder
    Dim colFiles As Scripting.Files
    Dim objFile As Scripting.File
    Dim i As Integer

    Set objFSO = New FileSystemObject
    strF = "M:\My Documents\Excel"
    Set objFolder = objFSO.GetFolder(strF)
    Set colFiles = objFolder.Files

    For Each objFile In colFiles
        If LCase(objFile.Name) Like "user*.h" Then
            ReDim Preserve fNames(0 To i)
            fNames(i) = objFile.Name
            i = i + 1
        End If
    Next objFile
  
    Load UserForm1

    UserForm1.ListBox1.List = fNames

    UserForm1.Show
    
End Sub

and use code like this on the userform:

Private Sub CommandButton1_Click()
UserForm1.Hide
With UserForm1.ListBox1
   For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
         myPath = strF & "\" & .List(i)
      End If
   Next i
End With
Unload UserForm1
End Sub

Originally Posted by Bernie Deitrick

Not using msoFileDialogFilePicker, unfortunately.

You can read the files of a selected directory and add them to a list on a userform if they meet your needs eg

Public strF As String

Sub UserformCode()
    
    Dim fNames() As String
    Dim objFSO As Scripting.FileSystemObject
    Dim objFolder As Scripting.Folder
    Dim colFiles As Scripting.Files
    Dim objFile As Scripting.File
    Dim i As Integer

    Set objFSO = New FileSystemObject
    strF = "M:\My Documents\Excel"
    Set objFolder = objFSO.GetFolder(strF)
    Set colFiles = objFolder.Files

    For Each objFile In colFiles
        If LCase(objFile.Name) Like "user*.h" Then
            ReDim Preserve fNames(0 To i)
            fNames(i) = objFile.Name
            i = i + 1
        End If
    Next objFile
  
    Load UserForm1

    UserForm1.ListBox1.List = fNames

    UserForm1.Show
    
End Sub

and use code like this on the userform:

Private Sub CommandButton1_Click()
UserForm1.Hide
With UserForm1.ListBox1
   For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
         myPath = strF & "\" & .List(i)
      End If
   Next i
End With
Unload UserForm1
End Sub

Hi Bernie,
For me it's quite an overkill of code ...
I'm sort of new to VBA and wanted to keep it as
simple as possible.

One thing though, the only reason I wanted to
filter the files is because I wanted the user to pick
any file he sees but wanted to limit the files.
in reality all I need is the path to the folder !
I really strip off the User.h file and I use the path of
the folder.

So with my original code can I just go about
getting only the path name without the user picking a file?

For eample I saw this:

http://software-solutions-online.com/2014/03/13/vba-save-file-dialog-filedialogmsofiledialogsaveas/

But what does this mean:

strPath = _

thanks
for your reply
Rn

You can get the path from the file name like this - but they do have to select a file to get a returned value.

Sub test()
    SelectFiles 2
End Sub
Sub SelectFiles(FilterType As Integer)
    Dim iFileSelect As FileDialog
    Dim myPath As String
    
    
    Set iFileSelect = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    
    iFileSelect.Filters.Clear
    
    ' new part ============================================
    If FilterType = 1 Then
        iFileSelect.Filters.Add "Text files", "*.txt"
        ElseIf FilterType = 2 Then
        iFileSelect.Filters.Add "User files", "*.h"
    End If
    
    ' ==================================================
    
    If iFileSelect.Show = -1 Then
        
        For Each vrtSelectedItem In iFileSelect.SelectedItems
            myPath = vrtSelectedItem   ' MyPath will have the filename the program is exported to
        Next vrtSelectedItem
        
    End If
    MsgBox "The path is " & Left(myPath, InStrRev(myPath, "\") - 1)
    'Set object variable to Nothing
    Set iFileSelect = Nothing
    
End Sub