VBA Application.GetOpenFilename for exact file name

[rpaulson]

here is my code.

Sub Restore_Setup()
  Dim Finfo As String
  Dim FilterIndex As Long
  Dim Title As String
  Dim FileName As Variant

  Finfo = "Text Files (*.txt),*.txt,"
  Title = "Select a SETUP to Import"

  FileName = Application.GetOpenFilename(Finfo, _
    FilterIndex, Title)

  If FileName = False Then exit sub

.... more code

the above code will allow the user to select any *.txt file.

I wish to only allow the user to see and only select setup*.txt files.
I tried this:
Finfo = "Text Files (setup*.txt),setup*.txt,"
but no luck

any ideas?

ross

 

[Rick Rothstein]

See if this helps you any...

[table="width: 500"]
[tr]
	[td]Sub Test()
  Dim Result As Long, WildcardPathFilter As String, Path As String, FileName As String
  
  [B][COLOR="#008000"]' Note the path is specified along with the wildcard name filter[/COLOR][/B]
  WildcardPathFilter = "c:\temp\setup*.txt"
  
  With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Select Test File"
    .Filters.Add "Text File", "*.txt"
    .FilterIndex = 1
    .AllowMultiSelect = False
    .InitialFileName = WildcardPathFilter
    Result = .Show
    
    If (Result <> 0) Then
      [B][COLOR="#008000"]' A name was selected... put your code to handle it here[/COLOR][/B]
      MsgBox "Selected Filename: " & Trim(.SelectedItems.Item(1))
    End If
    
  End With
End Sub[/td]
[/tr]
[/table]