TortoiseSVN SPREADSHEET COMPARE 比较表格

dim objArgs, objFileSystem, sBaseVer, sNewVer, sMessage, sBaseMessage, sNewMessage, bDiffers, sTempFile

sBaseFile = objArgs(0)
sNewFile = objArgs(1)

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
If objFileSystem.FileExists(sBaseFile) = False Then
    MsgBox "File " + sBaseFile + " does not exist.  Cannot compare the files.", vbCritical, "File not found"
    Wscript.Quit 1
End If
If objFileSystem.FileExists(sNewFile) = False Then
    MsgBox "File " + sNewFile + " does not exist.  Cannot compare the files.", vbCritical, "File not found"
    Wscript.Quit 1
End If

‘ Compare file size
dim fBaseFile, fNewFile, fs, f
Set fBaseFile = objFileSystem.GetFile(sBaseFile)
Set fNewFile = objFileSystem.GetFile(sNewFile)
sTempFile = "E:\temp.txt"

‘Creat temp.txt for save path of 2 xlsx files
Set fs =Wscript.CreateObject("scripting.filesystemobject")
Set f = fs.CreateTextFile(sTempFile, 2, True)
f.WriteLine sBaseFile
f.WriteLine sNewFile
f.Close()

‘ Compare files using SPREADSHEETCOMPARE.Exe
Set WshShell = WScript.CreateObject("WScript.Shell")
exitStatus = WshShell.Run("SPREADSHEETCOMPARE e:\temp.txt", 0, True)

Wscript.Quit