File name with some changing numbers

[ced0802]

Hi everyone,

I have a file named like : 20160105_1010_StockDetails_Raws

20160105 : no problem = Today's date

But I have the 1010 which is a complete random number.

Is there any way to deal with it? does **** exist in VBA?


Thank you very much in advance.

[Paul_Hossler]

Is there any way to deal with it? does **** exist in VBA?

Yes and Sort Of

Option Explicit
Sub test()
    Dim sPath As String, sFind As String, sFound As String, sNotFound As String
    
    sPath = "c:\Users\Daddy\Documents\"
    
    sFind = sPath & Format(Date, "yyyymmdd") & "_****_" & "StockDetails_Raws.txt"
    sFound = Dir(sFind)
    MsgBox sFound                            ' pass string to FileOpen

    sFind = sPath & Format(Date, "yyyymmdd") & "_****_" & "XStockDetails_Raws.txt"
    sNotFound = Dir(sFind)  ' empty string
    MsgBox sNotFound

End Sub

[ced0802]

Thank you very much Paul.
I will try that and let you know.
Many thanks !

[SamT]

Only need one *.
Can use 4 "?"

sFind = sPath & Format(Date, "yyyymmdd") & "_*_" & "StockDetails_Raws.txt"
sFind = sPath & Format(Date, "yyyymmdd") & "_????_" & "StockDetails_Raws.txt"

"_*_" will match "_12345_" and "_123_"

"_????_" will not match "_12345_" nor "_123_"

[Paul_Hossler]

@SamT -- must be too much New Years

@ced0802-- while the **** would still work, SamT's suggestions are more elegant