ZTree.com  | ZTreeWiki  | ZEN  | ZEST  | About...  

 Index   Back

[Notice] ZBar Script Host ZAAP   [Notice]

By: Ian Binnie   Homepage   Sydney  
Date: Apr 14,2009 at 08:06
In Response to: [Notice] ZBar Script Host ZAAP (Martijn Coppoolse)

Thanks, For completeness the following works.

' Purpose: This is a vbs script to compare files
' Author: Ian Binnie
' Version: 2009-04-14

' ZTreeWin must be in split screen mode, with the files to be compared tagged
' the other pane must be the directory to be compared
' Enter Ctrl-Y, then Return in response to "Assist:" prompt
' Files which are identical or similar will be untagged, leaving differing files tagged.
' Files which are missing will also be untagged

Option Explicit

Dim oShell
Set oShell = CreateObject("WScript.Shell")

Function onAssist(zbar)
Dim Return
onAssist = TRUE
If ((zbar.ZtreeScreenStatus = Asc("l")) Or (zbar.ZtreeScreenStatus = Asc("r"))) And zbar.ZtreePage = Asc("F") Then
Return = oShell.Run("%#ZThome%\Tfc.exe -b """ & zbar.NewFilename & """ """ & zbar.OtherFilename & """", 0, True)
If Return = 0 Then onAssist = FALSE
If Return = 2 Then onAssist = FALSE
End If
End Function

344 views      
Thread locked
 

Messages in this Thread

 
82,796 Postings in 10,445 Threads, 196 registered users, 18 users online (1 registered, 17 guests)
Index | Admin contact |   Forum Time: Sep 9, 2010 - 4:37 pm CDT  |  Hits:5,288,604  (2,569 Today )
RSS Feed