同步公司电脑上的软件.vbs

05~06年写的东西，放上来，做个备份吧，现在看看，那时候写的代码，还是很规范的。

要是现在，我肯定会用javascript 或 python来写。

Option Explicit '------------------------------------------------------------ '描述：用于同步两个目录中的目录和文件 '------------------------------------------------------------ 'Const strFolderA = "G:\Downloads\Soft" 'Const strFolderB = "K:\Soft" Const strFolderB = "G:\Downloads\Soft" Const strFolderA = "K:\Soft" Dim fsoObj Set fsoObj = CreateObject("Scripting.FileSystemObject") If Not fsoObj.FolderExists(strFolderA) Then MsgBox("源目录" & strFolderA & "不存在！") Else If Not fsoObj.FolderExists(strFolderB) Then fsoObj.CreateFolder(strFolderB) Synchronize strFolderA, strFolderB End If Set fsoObj = Nothing MsgBox("恭喜，同步成功！") '------------------------------------------------------------ '描述：同步两个文件夹 '参数： ' sFolderA 目录名 ' sFolderB 目录名 '返回：无 '------------------------------------------------------------ Sub Synchronize(sFolderA, sFolderB) Dim fsoFolderA,fsoFolderB Dim fsoSubFolderA, fsoSubFolderB Dim itmFolderA,itmFolderB Dim fsoFileA,fsoFileB Dim itmFileA,itmFileB Dim blnFileInFolderB Dim blnFolderInFolderB Set fsoFolderA = fsoObj.GetFolder(sFolderA) Set fsoFolderB = fsoObj.GetFolder(sFolderB) Set fsoFileA = fsoFolderA.Files Set fsoFileB = fsoFolderB.Files For Each itmFileA In fsoFileA blnFileInFolderB = False For Each itmFileB In fsoFileB If itmFileA.Name = itmFileB.Name And _ itmFileA.Size = itmFileB.Size And _ itmFileA.DateLastModified = itmFileB.DateLastModified Then blnFileInFolderB = True Exit For End If Next If Not blnFileInFolderB Then itmFileA.Copy fsoFolderB.path & "\" & itmFileA.Name, True End If Next Set fsoFileA = Nothing Set fsoFileB = Nothing Set fsoSubFolderA = fsoFolderA.SubFolders Set fsoSubFolderB = fsoFolderB.SubFolders For Each itmFolderA In fsoSubFolderA blnFolderInFolderB = False For Each itmFolderB In fsoSubFolderB If itmFolderA.Name = itmFolderB.Name Then blnFolderInFolderB = True Exit For End If Next If Not blnFolderInFolderB Then fsoObj.CreateFolder(fsoFolderB.path & "\" & itmFolderA.Name) End If Synchronize itmFolderA.Path, Replace(itmFolderA.Path,strFolderA,strFolderB) Next Set fsoSubFolderA = Nothing Set fsoSubFolderB = Nothing Set fsoFolderA = Nothing Set fsoFolderB = Nothing End Sub