This should work:
Option Explicit
Sub lastest_file()
Dim LastFileName, LastFileDate
Dim fso, Folder, f, Files, File
Set fso = CreateObject("Scripting.FileSystemObject")
Folder = "c:\temp3\"
Set f = fso.getfolder(Folder)
Set Files = f.Files
LastFileDate = 0
For Each File In Files
If (fso.getextensionname(File.Path) = "xls") Then
If File.datelastmodified > LastFileDate Then
LastFileDate = File.datelastmodified
LastFileName = File.Name
End If
End If
Next File
MsgBox "Last file: " & LastFileName
End Sub
Paul
________________________________
From: Joe Wilson <jhwilson1...@gmail.com>
To: excel-macros@googlegroups.com
Sent: Thursday, February 5, 2009 9:35:30 AM
Subject: $$Excel-Macros$$ How to open a file based on newest file in folder
Hello group.
Does anyone know of a way using VBA code that would allow me to open a file
based on the file being the last saved file in a folder? IT saves a file for
me but adds a time stamp to the file name, which will not allow me to open the
file based on the file name.
Any help would be appreciated.
Thanks,
Joe
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
