Open .txt file using wildcard filename

[kgartin]

I have a folder with a large number of files inside. Each of them has a filename with a specific, but similar, pattern. I need a code that will look through the files and find a specific file based on the beginning portion of the filename AND a middle portion. Hopefully this will explain it better:

Filename is
FL1-GV-GAINESVILLE-PRESS REPORT----RT1640B-DE1000B1-HALFL1P-158048-28-2024-09-04 124134

I want a macro that will find and open the file based on:
FL1-GV-GAINESVILLE-PRESS REPORT---- * 2024-09-04 * (where *s are wildcards)

Can anyone help with the coding for this?

 

[Domenic]

Try the following code...

Option Explicit

Sub test()

    Dim folderName As String
    Dim fileName As String
    Dim filter As String
    
    folderName = "c:\users\username\desktop\" 'change the path accordingly
    If Right(folderName, 1) <> "\" Then
        folderName = folderName & "\"
    End If
    
    filter = "FL1-GV-GAINESVILLE-PRESS REPORT----*2024-09-04 *.txt" 'removed space before the year
    
    fileName = getFileName(folderName, filter)
    
    If Len(fileName) > 0 Then
        Workbooks.Open folderName & fileName
    Else
        MsgBox "File not found.", vbExclamation
    End If
    
End Sub

Private Function getFileName(ByVal folderName As String, ByVal filter As String) As String

    Dim fileName As String
    
    If Right(folderName, 1) <> "\" Then
        folderName = folderName & "\"
    End If
    
    fileName = Dir(folderName & filter, vbNormal)
    
    If Len(fileName) > 0 Then
        getFileName = fileName
        Exit Function
    End If
    
    getFileName = vbNullString
    
End Function

Hope this helps!

 

[kgartin]

Try the following code...

Option Explicit

Sub test()

    Dim folderName As String
    Dim fileName As String
    Dim filter As String
   
    folderName = "c:\users\username\desktop\" 'change the path accordingly
    If Right(folderName, 1) <> "\" Then
        folderName = folderName & "\"
    End If
   
    filter = "FL1-GV-GAINESVILLE-PRESS REPORT----*2024-09-04 *.txt" 'removed space before the year
   
    fileName = getFileName(folderName, filter)
   
    If Len(fileName) > 0 Then
        Workbooks.Open folderName & fileName
    Else
        MsgBox "File not found.", vbExclamation
    End If
   
End Sub

Private Function getFileName(ByVal folderName As String, ByVal filter As String) As String

    Dim fileName As String
   
    If Right(folderName, 1) <> "\" Then
        folderName = folderName & "\"
    End If
   
    fileName = Dir(folderName & filter, vbNormal)
   
    If Len(fileName) > 0 Then
        getFileName = fileName
        Exit Function
    End If
   
    getFileName = vbNullString
   
End Function

Hope this helps!

Perfect thank you!

 

[Domenic]

You're very welcome, cheers!