这个“备份打印日志文件”的VBS有问题没？

ywq111

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

1. while 1
   
2. wscript.sleep 5000
   
3. dim fso,strcsPath,strbackPath,cshisFolder,csBackFolder,fileName
   
4. set fso =CreateObject("Scripting.FileSystemObject")
   
5. strcsPath="C:\cshis"
   
6. strbackPath="D:\cshisLog"
   
7. if fso.FolderExists(strcsPath) then
   
8. set cshisFolder=fso.GetFolder(strcsPath)
   
9. else wscript.Quit
   
10. end if
    
11. if not fso.FolderExists(strbackPath) then
    
12. fso.CreateFolder(strbackPath)
    
13. end if
    
14. if not fso.FolderExists(strbackPath) then
    
15. msgbox strbackPath+" 目录没有创建成功"
    
16. wscript.Quit '退出所有vbs执行语句
    
17. else
    
18. set csBackFolder=fso.GetFolder(strbackPath)
    
19. end if
    
20. 
    
21. for each file in cshisFolder.Files
    
22. if Instr(file.Name,"printserverrec") > 0 then
    
23. backfilepath=csBackFolder.path+""+file.Name
    
24. if fso.FileExists(backfilepath) then
    
25. dim backFile
    
26. set backFile= fso.GetFile(backfilepath)
    
27. if backFile.DateCreated - file.DateCreated then
    
28. 'file.Copy(backfilepath) 不需要做这个操作了。。。
    
29. elseif backFile.DateLastModified - file.DateLastModified then '不等于
    
30. file.Copy(backfilepath)
    
31. end if
    
32. set backFile=nothing
    
33. else file.Copy(backfilepath)
    
34. end if
    
35. end if
    
36. next
    
37. set fso=nothing
    
38. set strcsPath=nothing
    
39. set strbackPath=nothing
    
40. set cshisFolder=nothing
    
41. set csBackFolder=nothing
    
42. set fileName=nothing
    
43. 
    
44. wend

复制代码