PDA

Показать полную графическую версию : Копирование файла по дате модификации


RazdoR
23-05-2013, 13:41
Появилась необходимость искать файл по дате изменения, либо по имени и распаковывать его из архива.
Пока у меня вот такой вариант, а дальше не знаю как.

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 Цифры постоянно меняются, по ним можно производить идентификацию, но не знаю как это сделать.




© OSzone.net 2001-2012