Opening a file using wildcards

[60john]

Hi there,

I would like some help with opening files with variable file names.

A sample file name would be: "C:\abcd10062015defgh.csv"

Dim file_path1 As String
        Dim MyDate As String

file_path1 = "C:\ABCD" & MyDate & "defgh.csv"
    
    If Dir(file_path1) <> "" Then
        Workbooks.Open file_path1

The question is how do I use wildcards to open this file having gotten the date as a variable. The characters before and after the DDMMYYYY are never the same

Thanks in advance.

 

[Norie]

Perhaps.

Dim file_path1 As String
Dim MyDate As String

    MyDate = Format(Date, "ddmmyyyy")

    file_path1 = "C:\*" & MyDate & "*.csv"
    
    If Dir(file_path1) <> "" Then
        Workbooks.Open "C:\" & file_path1 
        ' other code
    Else
        MsgBox "File not found.
    End If

 

[60john]

Perhaps.

Dim file_path1 As String
Dim MyDate As String

    MyDate = Format(Date, "ddmmyyyy")

    file_path1 = "C:\*" & MyDate & "*.csv"
    
    If Dir(file_path1) <> "" Then
        Workbooks.Open "C:\" & file_path1 
        ' other code
    Else
        MsgBox "File not found.
    End If

Thanks for the prompt reply.

Unfortunately I get a error message that says " 'c:\*160615*.csv could not be found"

 

[Norie]

Try this.

Dim file_path1 As String
Dim MyDate As String

    MyDate = Format(Date, "ddmmyyyy")

    file_path1 = Dir("C:\*" & MyDate & "*.csv")
    
    If file_path1 <> "" Then
        Workbooks.Open "C:\" & file_path1 
        ' other code
    Else
        MsgBox "File not found.
    End If

 

[60john]

Try this.

Dim file_path1 As String
Dim MyDate As String

    MyDate = Format(Date, "ddmmyyyy")

    file_path1 = Dir("C:\*" & MyDate & "*.csv")
    
    If file_path1 <> "" Then
        Workbooks.Open "C:\" & file_path1 
        ' other code
    Else
        MsgBox "File not found.
    End If

That worked perfectly Norie.

Thanks for your help.