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

[arrun]

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,

[snb]

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

Adapt the path to your own situation

[arrun]

Thanks snb for your solution.

[arrun]

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 c00 = "G:\OF\Fol 1" then I am getting following error:

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

Is there some workaround?

I am using Excel-2003

Thanks

[snb]

You always have to end the path with a backslash

[arrun]

Oh yes....... I meant to say
c00 = "G:\OF\Fol 1\" only!

[snb]

In that case:


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

[arrun]

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