Определить самый новый файл, его имя, дату и время

Dim oLstFile : Set oLstFile = Nothing
  Dim oFile
  Dim goFS    : Set goFS    = CreateObject("Scripting.FileSystemObject")
  For Each oFile In goFS.GetFolder("C:\Myfolder").Files
      If "jpg" = LCase(goFS.GetExtensionName(oFile.Name)) Then
         If oLstFile Is Nothing Then 
            Set oLstFile = oFile ' the first could be the last
         Else
            If oLstFile.DateLastModified < oFile.DateLastModified Then
               Set oLstFile = oFile
            End If
         End If
      End If
  Next
  If oLstFile Is Nothing Then
     WScript.Echo "Файлы нужного расширения не найдены"
  Else
     WScript.Echo oLstFile.Name, "  ", oLstFile.DateLastModified
  End If

Dim fileName As String, fileNum As Integer
fileNum% = FreeFile()
fileName$ = "c:\data.txt"
Open fileName$ For Output As fileNum%   ' Create data.txt file.
Close fileNum%
Print fileName$; " Created on "; FileDateTime(fileName$)

Dim pathName As String, fileName As String
pathName$ = "c:\*.*"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
   Print fileName$
   fileName$ = Dir$()
Loop

doc.MyFileDate = FileDateTime(fileName$)

doc.fieldname = Значение

doc.FileDateTime = FileDateTime(fileName$)