How to retrieve most recent created file from folder?

[Sparko]

Hi people,

Does anyone know how to obtain the latest created file from a folder containing a number of files and display its name.

I'm almost losing it!

Thanks alot.

 

[Skie]

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oNewestFile = Nothing
sFolder = "C:\Temp\"
If oFSO.FolderExists(sFolder) Then
  For Each oFile In oFSO.GetFolder(sFolder).Files
    If oNewestFile Is Nothing Then
      Set oNewestFile = oFile
    Else
      If oNewestFile.DateCreated < oFile.DateCreated Then
        Set oNewestFile = oFile
      End If
    End If
  Next
End If
If oNewestFile IsNot Nothing Then
  WScript.Echo oNewestFile.Name & " " & oNewestFile.DateCreated
End If

 

[markdmac]

And another way to do it.

Set objFSO = CreateObject("Scripting.FileSystemObject")

FolderToScan = "C:\"

Set objFolder = objFSO.GetFolder(FolderToScan)

NewestFile = ""
NewestDate = #1/1/1970#

For Each objFile In objFolder.Files
    If objFile.DateLastModified > NewestDate Then
        NewestDate = objFile.DateLastModified
        NewestFile = objFile.Name
    End If
Next

WScript.Echo NewestFile

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.