Domtflowers
New Member
- Joined
- Mar 18, 2004
- Messages
- 14
i know of an open latest created file syntax but down't know what it is can anyone help also how do i specify the file path (where to look for the latest file)
Sub FIND_NEWEST_FILE()
Dim MyFolder As String
Dim MyFileName As String
Dim MyDateTime As Date
Dim NewestFile As String
Dim NewestDateTime As Date
MyFolder = CurDir & "\"
'---------------------------
MyFileName = Dir(MyPath & "*.XLS")
Do While MyFileName <> ""
MyDateTime = FileDateTime(MyFolder & MyFileName)
If MyDateTime > NewestDateTime Then
NewestDateTime = MyDateTime
NewestFile = MyFileName
End If
MyFileName = Dir
Loop
'MsgBox (NewestFile & vbCr & NewestDateTime)
Workbooks.Open FileName:=MyFolder & NewestFile
End Sub