[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

RE: Re: DLL Version Diff

From: Casey Barton <bartoncasey_at_gmail.com>
Date: Fri, 12 Mar 2010 14:19:11 -0800 (PST)

Nope, I'm quite sure the file was attached. Perhaps a .vbs file was too scary for the forum software.

diff-dll.vbs

---
'
' TortoiseSVN Diff script for DLL files
'
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
------------------------------------------------------
http://tortoisesvn.tigris.org/ds/viewMessage.do?dsForumId=4061&dsMessageId=2458902
To unsubscribe from this discussion, e-mail: [users-unsubscribe_at_tortoisesvn.tigris.org].
Received on 2010-03-12 23:19:13 CET

This is an archived mail posted to the TortoiseSVN Users mailing list.