摘要：
功能：将C:cshis中的打印日志文件复制到D:cshisLog目录（因为机器上安装了还原向导，C:磁盘被冻结，因此每5分钟写入并判断一次此代码。如果更新了日志文件，则会将其复制）。sleep5000dimfso，strcsPath，strbackPath，cshisFolder，csBackFolder，fileNamesetfso=创建对象（“Scrip
作用，将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