Open file with latest date

[Ludde7172]

Hello All,

I have a problem that I do not how to solve. I would like to open the latest date with a file that contains the work document. There will be several files with the name document, i.e document(1), document(2) ...

Today I use this code:

myPath = ThisWorkbook.Path & "\"
fname = Dir(myPath & "Kollektiv*")

If fname <> "" Then
Set wb = Workbooks.Open(myPath & fname)
End If

/L

 

[JEC]

Try: (change the path)

Sub jec()
a = Split(CreateObject("wscript.shell").Exec("cmd /c Dir  ""C:\Users\xx\Documents\xxx\xxx\Kollektiv*"" /b/t:a/o:d/s").StdOut.ReadAll, vbCrLf)
If IsArray(a) Then Workbooks.Open (a(0))
End Sub

 

[JEC]

Maybe better to read:
This code opens the file which has the latest "last opened" date

Sub jec()
 myPath = ThisWorkbook.Path & "\Kollektiv*"
 a = Split(CreateObject("wscript.shell").Exec("cmd /c Dir  """ & myPath & """  /b/t:a/o:d/s").StdOut.ReadAll, vbCrLf)
 If IsArray(a) Then Workbooks.Open a(0)
End Sub

 

[Ludde7172]

Thanks. Could not get it to work

 

[JEC]

Hmm where does it error?