备份打印日志的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