Need help pulling the date from a file Name.

[JayRab]

Have these two file names:



strfile = "(12-9-2013) Daily Equipment Usage.xlsx"

strfile ="(12-10-2013) Daily Equipment Usage.xlsx" ' the ending of this can cange to - copy -copy(2).xlsx So length of strfile isnt constant or doesnt change by just 1
also can have
strfile="(1-1-2014) daily....."


I am looking to just grab the Date from inside the parenthesis. I need this date to use in update query to date stamp all imports from this file.

strNameUpdate = mid(strfile,2,10).

this will give me 12-9-2013) for the first one , 12-10-2013 and 1-1-2014) for the third one.

How do I get it to just return 12-9-2013 12-10-2013 1-1-2014

Any tips or help would be awesome.

have close to 300 files like this. so renaming not really an option

thanks

[ItsMe]

Dim strFile As String
strFile = "(12-10-2013) Daily Equ)ipment Usa(ge.xlsx"
strFile = Left(strFile, InStr(strFile, ")") - 1)   'Trim off everything to the right of first Parenthesis + )
strFile = Mid(strFile, InStr(strFile, "(") + 1)   'Trim off everything to the Left of first Parenthesis + (
MsgBox strFile

[JayRab]

Awesome thanks.