use a wild card to find a file

[rhino4eva]

fname = Application.GetOpenFilename(filefilter:="txt Files (*.txt),*.txt")

I use the code above to select a txt file to import into excel
however the directory that this file is located is full of junk that I'm not bothered about
how can I modify the "*" to show only "any file that has the string TCTB" in it and not show the junk

 

[Yongle]

try this instead
- remember the final path separator

Sub TextFile()
    Dim fName As String, p As String
    p = "C:\test\subfolder[SIZE=3][COLOR=#ff0000]\[/COLOR][/SIZE]"
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = p & "*TCTB*.txt"
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then fName = .SelectedItems(1)
    End With
    MsgBox fName
End Sub

 

[rhino4eva]

Fantastic ... works a treat thank you

 

[Yongle]

thanks for your feedback