Get Latest created File from any Folder using UFT

Set obj = Createobject("Scripting.FileSystemObject")
Set fol = obj.GetFolder("E:\New folder") 'Folder Path
Set fis = fol.Files

For each fs in fis
    If latest = "" Then
        Set latest = fs
        ElseIf latest.Datecreated < fs.Datecreated Then
        Set latest = fs
    End If
Next

Msgbox latest.name ' returns Latest created file name