Get file address without opening the file?

[xceej]

Hi
I know it is possible to open a file with using wildcards, but is it possible to get the full address/filename using wildcards without opening the file?
eg opening using wildcards:

FilePath=FolderPath & "*DUB*"
Workbooks.Open FilePath

And I know you can get full address/name with:

ThisWorkbook.FullName

The reason is that I am pulling data from files that will be changed monthly, and only part of the name will remain consistent. I'm using ADO functions to pull in the data without opening the sheets, but for that I need to point specifically to the workbook, wildcards don't work.

Thanks for any help

 

[Domenic]

The following example uses the Dir function to search for the first file in the specified folder that matches your criteria, and then assigns the file name to the variable filename. If no file is found, a message is displayed, and then it exits the sub. Otherwise, it continues with the rest of the code.

    Dim filename As String
    filename = Dir(FolderPath & "*DUB*", vbNormal)
   
    If Len(filename) = 0 Then
        MsgBox "No file found!", vbExclamation
        Exit Sub
    End If
   
    'etc
    '
    '

Hope this helps!

 

[Joe4]

Here is a little example showing you how you can loop through a whole directory, and capture all file names that have a certain word in them, and set the full name equal to a variable (I return it as a MsgBox for demonstration purposes).

Sub MyTest()

    Dim myPath As String
    Dim myFile
    Dim myFullName As String

    myPath = "C:\Temp\"

    myFile = Dir(myPath & "*DUB*")

    Do While myFile <> ""
        myFullName = myPath & myFile
        MsgBox myFullName
        
        myFile = Dir
    Loop
    
End Sub

Change your file path to suit.

 

[xceej]

The following example uses the Dir function to search for the first file in the specified folder that matches your criteria, and then assigns the file name to the variable filename. If no file is found, a message is displayed, and then it exits the sub. Otherwise, it continues with the rest of the code.

    Dim filename As String
    filename = Dir(FolderPath & "*DUB*", vbNormal)
  
    If Len(filename) = 0 Then
        MsgBox "No file found!", vbExclamation
        Exit Sub
    End If
  
    'etc
    '
    '

Hope this helps!

That's perfect. Then I can combine FolderPath & Filename and works in the subs down the line. Thanks for the help!

 

[Domenic]

Glad we can help, cheers!