Solved: Sort all files in a folder and open the latest one

Dear all, can somebody help me to have a code which will sort all files in a specified folder (this folder containes mainly excel files and few pdf files) according to Date and then open the latest excel file?

It really helpful if someone can help me out.

Thanks and regards,

[vba]Sub M_snb_most_recent()
c00 = "G:\OF\"
Workbooks.Open c00 & Split(CreateObject("wscript.shell").exec("cmd /c dir " & c00 & "*.xls /b /o-d").stdout.readall, vbCrLf)(0)
End Sub[/vba]

Adapt the path to your own situation

Thanks snb for your solution.

Dear snb, I have a problem with your code. Problem is coming, if in the folder name, there is some space. Say my folder is [vba]c00 = "G:\OF\Fol 1"[/vba] then I am getting following error:

Run-time error '9':
Subscript out of range

Is there some workaround?

I am using Excel-2003

Thanks

You always have to end the path with a backslash

Oh yes....... I meant to say

[vba]c00 = "G:\OF\Fol 1\"[/vba] only!

In that case:

[vba]

Sub M_snb_most_recent()

c00 = "G:\OF space\"
Workbooks.Open c00 & Split(CreateObject("wscript.shell").exec("cmd /c dir " & chr(34) & c00 & "*.xls" & chr(34) & " /b /o-d").stdout.readall, vbCrLf)(0)
End Sub

[/vba]

Thanks snb, it really worked. Thank you very much for your effort