vbs script открыть папку выбрать самый последний файл sendKeys чтобы открыть

Question

Я пытаюсь открыть определенную папку, выберите самую последнюю версию .png, затем используйте sendKeys, чтобы открыть файл. Следующий код показывает, что я пробовал, но есть пара проблем, если я напрямую открываю файл с кодоммой просмотрщик фотографий не может просмотреть следующий файл в папке, поэтому я просто хочу выбрать его и использовать sendKeys для открытия, что позволяет мне выбрать следующий файл в папке, и файлы имеют пробелы в имени, и код не может их найти, если я не удаляюпробел Любые идеи Признанные спасибо

Option Explicit  
Dim fso, path, file, recentDate, recentFile, WshShell
Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
For Each file in fso.GetFolder("F:\MEDIA\").Files
  If (recentFile is Nothing) Then
    Set recentFile = file
  ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
    Set recentFile = file
  End If
Next

If recentFile is Nothing Then
  WScript.Echo "no recent files"
Else

'WScript.Echo "Recent file is " & recentFile.Name & " " & recentFile.DateLastModified

  Set WshShell = WScript.CreateObject("WScript.Shell")
    Dim exeName 
    Dim statusCode
        exeName = recentFile
        statusCode = WshShell.Run (exeName, 1, false)
        End if

Это работает, но мне нужен способ сортировки папки по дате

Set WshShell = WScript.CreateObject("WScript.Shell")
Dim exeName 
Dim statusCode
    exeName = "F:\MEDIA\"
    statusCode = WshShell.Run (exeName, 1, false)
    WScript.Sleep 300
    set shell = CreateObject("WScript.Shell")   
    shell.SendKeys" ~"