Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find latest file in folder & Open
Hi all, i would like to find the latest file in a folder and open it with
code. The files would have different names as they are updates with a code on the end. Could somebody help me with this please. -- Les |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find latest file in folder & Open
Try this:
Sub AAAAA() Const FilePath = "D:\Data\" Workbooks.Open Filename:=FindNewestFile(FilePath) End Sub Function FindNewestFile(FilePath As String) As String Dim LastDate As Date, NewDate As Date Dim LastFile As String, NewFile As String 'Check all the .XLS files in the folder. Find the 'most recent file. LastFile$ = LCase$(Dir(FilePath$ & "*.XLS")) LastDate = FileDateTime(FilePath$ & LastFile$) NewFile$ = LastFile$ Do While Len(NewFile$) 0 NewFile$ = LCase$(Dir()) If Len(NewFile$) = 0 Then Exit Do NewDate = FileDateTime(FilePath$ & NewFile$) If NewDate LastDate Then LastDate = NewDate LastFile$ = NewFile$ End If Loop FindNewestFile$ = FilePath$ & LastFile$ End Function Hope this helps, Hutch "Les" wrote: Hi all, i would like to find the latest file in a folder and open it with code. The files would have different names as they are updates with a code on the end. Could somebody help me with this please. -- Les |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find latest file in folder & Open
Thanks Tom
-- Les "Tom Hutchins" wrote: Try this: Sub AAAAA() Const FilePath = "D:\Data\" Workbooks.Open Filename:=FindNewestFile(FilePath) End Sub Function FindNewestFile(FilePath As String) As String Dim LastDate As Date, NewDate As Date Dim LastFile As String, NewFile As String 'Check all the .XLS files in the folder. Find the 'most recent file. LastFile$ = LCase$(Dir(FilePath$ & "*.XLS")) LastDate = FileDateTime(FilePath$ & LastFile$) NewFile$ = LastFile$ Do While Len(NewFile$) 0 NewFile$ = LCase$(Dir()) If Len(NewFile$) = 0 Then Exit Do NewDate = FileDateTime(FilePath$ & NewFile$) If NewDate LastDate Then LastDate = NewDate LastFile$ = NewFile$ End If Loop FindNewestFile$ = FilePath$ & LastFile$ End Function Hope this helps, Hutch "Les" wrote: Hi all, i would like to find the latest file in a folder and open it with code. The files would have different names as they are updates with a code on the end. Could somebody help me with this please. -- Les |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
find latest date modified file | Excel Programming | |||
VBA can't find file as it moves from folder to folder | Excel Programming | |||
macro to open latest file | Excel Programming | |||
open file from folder save in new folder | Excel Programming | |||
Find folder with next to latest date | Excel Programming |