备份打印日志的vbs小工具

作用，将C:\cshis中的打印日志文件复制到D:\cshisLog目录（因为机器上安装有还原精灵，C:盘冻结了，所以写了这个代码，每5分钟判断一次，如果日志文件有更新，就复制） 

 

 

while 1
wscript.sleep 5000
dim fso,strcsPath,strbackPath,cshisFolder,csBackFolder,fileName
set fso = CreateObject ( " Scripting.FileSystemObject " )
strcsPath = " C:\cshis "
strbackPath = " D:\cshisLog "
if fso.FolderExists(strcsPath) then
set cshisFolder = fso.GetFolder(strcsPath)
else wscript.Quit
end if
if not fso.FolderExists(strbackPath) then
fso.CreateFolder(strbackPath)
end if
if not fso.FolderExists(strbackPath) then
msgbox strbackPath + " 目录没有创建成功 "
wscript.Quit ' 退出所有vbs执行语句
else
set csBackFolder = fso.GetFolder(strbackPath)
end if

for each file in cshisFolder.Files
if Instr (file.Name, " printserverrec " ) > 0 then
backfilepath = csBackFolder.path + " \ " + file.Name
if fso.FileExists(backfilepath) then
dim backFile
set backFile = fso.GetFile(backfilepath)
if backFile.DateCreated - file.DateCreated then
' file.Copy(backfilepath) 不需要做这个操作了。。。
elseif backFile.DateLastModified - file.DateLastModified then ' 不等于
file.Copy(backfilepath)
end if
set backFile = nothing
else file.Copy(backfilepath)
end if
end if
next
set fso = nothing
set strcsPath = nothing
set strbackPath = nothing
set cshisFolder = nothing
set csBackFolder = nothing
set fileName = nothing

wend

 

 

 

 

 

转载于:https://www.cnblogs.com/weiqi/archive/2011/01/18/1938590.html