Set objFileSysOb = CreateObject("Scripting.FileSystemObject")
Set colFolderName = objFileSysOb.GetFolder("Give your Parent Folder path here")
Set vFiles =colFolderName.Files
dim f, datecreated, lastfilename
For each i in vFiles
d = Split(i,"\")
FileName=d(ubound(d))
f = objFileSysOb.GetFile(FileName)
if datecreated = "" then
datecreated = f.DateCreated
lastfilename = FileName
else
'check lastdate to current file
if datecreated < f.DateCreated then
datecreated = f.DateCreated
lastfilename = FileName
end if
end if
Next
msgbox "Last file created was " & lastfilename