Open file with dynamic date and timestamp

[giaudi]

Hello, I need to write a code that can open a file which is saved to a common drive a number of times per day using today’s date with a time stamp.
The file format is saved as `filename-YYYY-MM-DD-HH-MM-SS.xls`. The problem is that the file is never saved at the same time and I wish to open the most recent one. Any idea?
Thanks. G

 

[JamesW]

Hi,

Take a look here:

http://www.mrexcel.com/forum/showthread.php?t=223730

 

[giaudi]

Thanks James.

I am trying to adapt it to what I need. However this is just looking up for the last modified file in the folder, but let's say that in my folder I have tow types of files (aaaa-YYYY-MM-DD-HH-MM-SS.xls and bbbb-YYYY-MM-DD-HH-MM-SS.xls) and I just want to look up the last modified aaaa file? how should I change the beoow code?
Thanks

Sub GetMostRecentFile()

Dim FileSys As FileSystemObject
Dim objFile As File
Dim myFolder
Dim strFilename As String
Dim dteFile As Date

'set path for files - change for your folder
Const myDir As String = "\\xxxx\yyyy\zzzz"

'set up filesys objects
Set FileSys = New FileSystemObject
Set myFolder = FileSys.GetFolder(myDir)


'loop through each file and get date last modified. If largest date then store Filename
dteFile = DateSerial(1900, 1, 1)
For Each objFile In myFolder.Files
If objFile.DateLastModified > dteFile Then
dteFile = objFile.DateLastModified
strFilename = objFile.Name
End If
Next objFile
Workbooks.Open strFilename

Set FileSys = Nothing
Set myFolder = Nothing

End Sub

 

[JamesW]

Without testing it, maybe something like:

If objFile.DateLastModified > dteFile AND Left(objFile.Name,5) = "aaaaa" Then

 

[giaudi]

Thanks a lot
G