Копирование самого последнего файла по дате

Здравствуйте коллеги.
Столкнулся с такой проблемой, нужно копировать файл на фтп, но такой у которого самая свежая дата.
имя файла рандомное
сделал скрипт который копирует на фтп, но он умеет копировать только либо четко указынный файл, либо папку целиком.
вот сам скрипт

Код:

'FTP Upload







Set oShell = CreateObject("Shell.Application")

Set objFSO = CreateObject("Scripting.FileSystemObject")





'откуда брать файл, либо указываем папку

path = "c:\11.rar" `etc c:\11



FTPUpload(path)





Sub FTPUpload(path)



On Error Resume Next





'Copy Options: 16 = Yes to All

Const copyType = 16



'FTP Wait Time in ms

waitTime = 80000000



 

FTPUser = "ftp"

FTPPass = "userftp"

FTPHost = "xxxxxxxx"

FTPDir = "/home/"



strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir

Set objFTP = oShell.NameSpace(strFTP)









'Upload single file       

If objFSO.FileExists(path) Then



Set objFile = objFSO.getFile(path)

strParent = objFile.ParentFolder

Set objFolder = oShell.NameSpace(strParent)



Set objItem = objFolder.ParseName(objFile.Name)





 objFTP.CopyHere objItem, copyType





End If





'Upload all files in folder

If objFSO.FolderExists(path) Then



'Code below can be used to upload entire folder

Set objFolder = oShell.NameSpace(path)



Wscript.Echo "Uploading folder " & path & " to " & strFTP

objFTP.CopyHere objFolder.Items, copyType



End If





If Err.Number <> 0 Then

Wscript.Echo "Error: " & Err.Description

End If









'Wait for upload

WScript.Sleep waitTime





End Sub