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
复制代码