Копирование файла по дате модификации - Компьютерный форум OSzone.net

Появилась необходимость искать файл по дате изменения, либо по имени и распаковывать его из архива.
Пока у меня вот такой вариант, а дальше не знаю как.

Код:

Dim A, objFSO, objFile

Dim strSource, strDest

Dim argFirst, argSecond, MyStamp, TheDate, FileDateTime

 

 

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

strSource = "C:\1"

strDest   = "C:\2"

 

Set objArgs = WScript.Arguments

 

retval = CStr(objArgs(0)&" "&objArgs(1))

 

If objFSO.FolderExists(strSource) Then 

If objFSO.FolderExists(strDest) Then

           

For Each objFile In objFSO.GetFolder(strSource).Files

FileDateTime = CStr(objFile.DateLastModified)

 

If  FileDateTime = retval  Then             

WScript.Echo objFile.Name

objFile.Copy objFSO.BuildPath(strDest, objFile.Name), True

End If

 

Next

End If

End If

Set objFSO = Nothing

WScript.Quit

И распаковка

Код:

Set WshShell = CreateObject("WScript.Shell")

Set WshExec = WshShell.Exec("cmd /c ""C:\Program Files\7-Zip\7z.exe"" x c:\test\123.7z -oc:\test\ -y")

Вместе соединить никак пока не могу.

Подскажите, кто может: как сделать поиск файла по имени, либо по дате изменения, при этом дату изменения, либо имя файла нужно вводить руками и найденный файл распаковывать с помощью консольной 7zip? Имя файла выглядит так backup20130523_133405.7z Цифры постоянно меняются, по ним можно производить идентификацию, но не знаю как это сделать.