finding newest timestamped file

Function GetNewestFilename(folderName As String) As String
   Dim fso As New Scripting.FileSystemObject
   Dim fd As Scripting.Folder
   Dim f_loop As Scripting.File
   Dim f_tmp As Scripting.File
   
   [COLOR=Green]'use the fso to return a folder reference using PARAM folderName[/COLOR]
   Set fd = fso.GetFolder(folderName)
   
   [COLOR=Green]'enumerate the files collection of the folder object[/COLOR]
   For Each f_loop In fd.Files
      If f_tmp Is Nothing Then
         [COLOR=Green]'on the first iteration of this loop, f_tmp will not be assigned[/COLOR]
         Set f_tmp = f_loop [COLOR=Green]'so do this here with the first file[/COLOR]
      Else
         [COLOR=Green]'on subsequent iterations, see if the current f_loop is newer[/COLOR]
         If f_loop.DateCreated > f_tmp.DateCreated Then
            [COLOR=Green]'and if so, assign to f_tmp[/COLOR]
            Set f_tmp = f_loop
         End If
      End If
   Next f_loop
   
   GetNewestFilename = f_tmp.Path
      
End Function

Function FindNewestFile() As String 'Or as whatever you want
    Dim objFS As New Scripting.FileSystemObject
    Dim objFldr As Folder
    Dim objFile As File
    Dim objFile2 As File
    Set objFldr = objFS.GetFolder("Drive:\Folder")
    On Error Resume Next
    For Each objFile In objFldr.Files
        If Not x = True Then
            Set objFile2 = objFile
            x = True
        Else
            If objFile.DateCreated > objFile2.DateCreated Then
                Set objFile2 = objFile
            End If
        End If

    Next objFile
    FindNewestFile = objFile2.Name
    Set objFldr = Nothing
    Set objFile = Nothing
    Set objFile2 = Nothing
    Set objFS = Nothing

End Function

FileDateTime("pathname")