VBS对比更新游戏

风一样的男孩

3.     Option Explicit
4.     'URL:http://www.ganhui0818.cn
5.     Dim SDir, LDir, MandatoryUpdate, DelRedundantFile, CompareSubFolder, MandatoryUpdateFolder
6.     Dim ExcludedFolder, MandatoryUpdateFile, ExcludedFile, DiffTime, RunFile, RegFile, SystemFile
7.    
8.     '远程目录
9.     SDir = "\\gameserver\d\xiuxian\qq2008"
10.     '本地目录
11.     LDir = "f:\Documents and Settings\Administrator\桌面\新建文件夹2"
12.     '是否强制更新所有文件(不对比，直接设所有文件为需更新状态)，是=True，否=False，下同
13.     MandatoryUpdate = False
14.     '文件差异时间在此值内则不更新（单位：秒）,建议设为3秒，强制更新所有文件时，勿略此设置
15.     DiffTime = 3
16.    
17.     Dim sobjFSO
18.     Set sobjFSO = CreateObject("Scripting.FileSystemObject")
19.     If Not CheckFolder(SDir,False) Then
20.         Msgbox "远程目录" & Chr(34) & SDir & Chr(34) & "不存在，请确认！",64,"提示"
21.         WScript.Quit
22.     End If
23.     Dim StartTime
24.     StartTime = Now
25.     ShowFolder SDir,LDir,DiffTime,MandatoryUpdate
26.     Msgbox "耗时：" & Datediff("s",StartTime,Now) & "秒"
27.    
28.    
29. Function CheckFolder(strFolder,blnCreate)
30.     If Not sobjFSO.FolderExists(sobjFSO.GetDriveName(strFolder)) Then
31.         CheckFolder = False
32.         Exit Function
33.     End If
34.     If Not sobjFSO.FolderExists(strFolder) And blnCreate Then
35.         If CheckFolder(sobjFSO.GetParentFolderName(strFolder),blnCreate) Then
36.             On Error Resume Next
37.             sobjFSO.CreateFolder strFolder
38.             If Err Then
39.                 CheckFolder = False
40.                 Err.Clear
41.                 On Error GoTo 0
42.                 Exit Function
43.             Else
44.                 CheckFolder = True
45.             End If
46.             On Error GoTo 0
47.         Else
48.             CheckFolder = False
49.         End If
50.     Elseif Not sobjFSO.FolderExists(strFolder) And Not blnCreate Then
51.         CheckFolder = False
52.     Else
53.         CheckFolder = True
54.     End If
55. End Function
57. Function ShowFolder(Folder1,Folder2,intTimes,blnMandatory)
58.     Dim objF, objFLs, objFL
59.     Set objF = sobjFSO.GetFolder(Folder1)
60.     Set objFLs = objF.SubFolders
61.     ScanFile Folder1,Folder2,intTimes,blnMandatory
62.     For Each objFL in objFLs
63.         ShowFolder objFL.Path,Replace(objFL.Path,Folder1,Folder2,1,1,1),intTimes,blnMandatory
64.     Next
65. End Function
67. Function ScanFile(Folder1,Folder2,intTimes,blnMandatory)
68.     If Not CheckFolder(Folder2,True) Then Exit Function
69.     Dim objF, objFIs, objFI, objTmpF
70.     Set objF = sobjFSO.GetFolder(Folder1)
71.     Set objFIs = objF.Files
72.     For Each objFI In objFIs
73.         If Not sobjFSO.FileExists(Replace(objFI.Path,Folder1,Folder2,1,1,1)) or blnMandatory Then
74.             objFI.Copy Replace(objFI.Path,Folder1,Folder2,1,1,1)
75.         Else
76.             Set objTmpF = sobjFSO.GetFile(Replace(objFI.Path,Folder1,Folder2,1,1,1))
77.             If objFI.Size <> objTmpF.Size or Abs(DateDiff("s",objFI.DateLastModified,objTmpF.DateLastModified)) >= intTimes Then
78.                 objFI.Copy Replace(objFI.Path,Folder1,Folder2,1,1,1)
79.             End If
80.         End If
81.     Next
82. End Function

复制代码