Copying in data from file with date in folder name

[booms]

Hi,

I think this is probably quite straightforward - I'm trying to set up a macro that will copy in data from a file which is saved down daily.

The file is saved down in a different folder each day e.g. folder/13_May_2011/folder/XRATE_EXTRACT

How would I set up a macro that was able to pick up this folder location, being aware of the date (last business day), and date format?

 

[texasalynn]

here is an example of setting the path and file name

Sub Xrate()
Dim XDir As String, sName As String, sPath As String, fName As String
XDir = Format(WORKDAY(Date, -1), "d_mmm_yyyy")
sPath = "C:\Documents and Settings\lynna0\Desktop\" & XDir
sName = "\" & "XRATE_EXTRACT"
fName = sPath & sName
Workbooks.Open fName
End Sub

note: untested