Kiln » TortoiseHg » WinBuild Read More
Clone URL:  
Pushed to one repository · View In Graph Contained in 1.0.4, 1.1, and 1.1.1

add a new diff script for dll/exe files

Changeset 29538d621815…

Parent 402a632e1283…

by Steve Borho

Changes to one file · Browse files at 29538d621815 Showing diff from parent 402a632e1283 Diff from another changeset...

Change 1 of 1 Show Entire File contrib/​diff-scripts/​diff-dll.vbs Stacked
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
@@ -0,0 +1,56 @@
+' extensions: dll;exe +' +' TortoiseSVN Diff script for dll and exe files +' +' Copyright (C) 2010 the TortoiseSVN team +' This file is distributed under the same license as TortoiseSVN +' +' Last commit by: +' $Author$ +' $Date$ +' $Rev$ +' +' Authors: +' Casey Barton, 2010 +' +dim objArgs, objScript, sBaseVer, sNewVer, sMessage + +Set objArgs = WScript.Arguments +num = objArgs.Count +if num < 2 then + MsgBox "Usage: [CScript | WScript] compare.vbs base.doc new.doc", vbExclamation, "Invalid arguments" + WScript.Quit 1 +end if + +sBaseDoc = objArgs(0) +sNewDoc = objArgs(1) + +Set objScript = CreateObject("Scripting.FileSystemObject") +If objScript.FileExists(sBaseDoc) = False Then + MsgBox "File " + sBaseDoc +" does not exist. Cannot compare the files.", vbExclamation, "File not found" + Wscript.Quit 1 +End If +If objScript.FileExists(sNewDoc) = False Then + MsgBox "File " + sNewDoc +" does not exist. Cannot compare the files.", vbExclamation, "File not found" + Wscript.Quit 1 +End If + +sBaseVer = objScript.GetFileVersion(sBaseDoc) +sNewVer = objScript.GetFileVersion(sNewDoc) + +if sBaseVer = sNewVer then + sMessage = "Versions are identical: " + sBaseVer +else + sMessage = "Versions differ:" + vbCrLf + vbCrLf _ + + "Base" + vbCrLf _ + + " File: " + sBaseDoc + vbCrLf _ + + " Version: " + sBaseVer + vbCrLf + vbCrLf _ + + "New" + vbCrLf _ + + " File: " + sNewDoc + vbCrLf _ + + " Version: " + sNewVer + +end if + +MsgBox sMessage, vbInformation, "DLL Version Comparison" + +Wscript.Quit