Recently Created File or Folder

[bfakruddin]

Hello Folks,

Can anybody tell how to get the recently created Folder or a File in a Parent Folder...

Please give me the code

Thanks & regards
Baba Fakruddin.D

[sreekanth chilam]

Hi ,

Try with the below code for your query "How to get the files in a parent folder?"

Code:

Set objFileSysOb = CreateObject("Scripting.FileSystemObject") Set colFolderName = objFileSysOb.GetFolder("Give your Parent Folder path here") Set vFiles =colFolderName.Files For each i in vFiles d=Split(i,"\") FileName=d(ubound(d)) msgbox FileName Next

[bfakruddin]

Thank You Sreekanth,

Nice Script... But, I need the file recently created....! because I need to get the data from that file. I don't want to provide that file name externally.
I think we can get that file by using "FileSystemObject"... But, I don't know which method need to use to get recently created file(Latest File in that folder)

Thanks & regards
Baba Fakruddin.D

[jsknight1969]

Then just add the code for it

Code:

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 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

This code may not be perfect, but by storing and comparing the file created dates you should find the last file created then store the filename. Might have to cast the date variables to get them to compare as dates correctly.
[/code]