存档超过10天的日志文件，而不使用任何zip实用程序

Question

我想存档/压缩所有超过10天的日志文件而不使用任何zip实用程序。

我试过在脚本下运行但到目前为止没有运气。你能告诉我脚本中有什么问题吗？我正在使用VBScript文件和批处理文件来运行VBScript。

批处理脚本：

set _my_date=%date%
set _my_date=%_my_date: =_%
set _my_date=%_my_date::=%
set _my_date=%_my_date:/=_%
set _my_date=%_my_date:.=_%

set arcpath1="C:\Archieval"

set logpath="C:\test\*.txt"

set TEMPDIR=C:\Test
rmdir %TEMPDIR%
mkdir %TEMPDIR%
FORFILES /D -1 /M *.txt /C "cmd /c xcopy /s %logpath% %TEMPDIR%

CScript  Archieve.vbs  %TEMPDIR%  C:\Archieval\someArchive.zip

pause

的VBScript：

Set objArgs = WScript.Arguments
InputFolder = objArgs(0)
ZipFile = objArgs(1)
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" ^& Chr(5) ^& Chr(6) ^& String(18, vbNullChar)
Set objShell = CreateObject("Shell.Application")
Set source = objShell.NameSpace(InputFolder).Items
objShell.NameSpace(ZipFile).CopyHere(source)
WScript.Sleep 2000