How to get macro to open file name based on today's date?

Dear friends,

I have a macro which is like this now:

Sub CopyMacronew()
'
' CopyMacronew Macro
'
'
Workbooks.Open Filename:= _
"L:\DIR\Daily Report\2013\07. Jul 2013\" & Range("B1") & ".xls", UpdateLinks:=0
Application.DisplayAlerts = False
Application.Calculation = xlManual
ActiveWindow.Close
Workbooks.Open Filename:= _
"L:\DIR\Daily Report\2013\07. Jul 2013\" & Range("B1") & ".xls", UpdateLinks:=0
Cells.Select
'
Selection.Copy


After copying, How to I get it to open up a file in a folder which is titled today's date and changes everyday so that I can paste it to this new file everyday?

Thank you!