REM VisualBasicScript to run REMATCH program on all 2dvd AB files
' 01/09/2013-Written by P.Gatlin (UAH)


Option Explicit


'++++++++++++++++CHANGE THIS TO YOUR PATH TO DSD SOFTWARE INSTALL+++++++++++
Const codeDir = "C:\2D-Video-Distrometer\REMATCH"
'++++++++++++++++CHANGE THIS TO YOUR PATH TO DSD SOFTWARE INSTALL+++++++++++

Dim Command,fso,Status,dsdCmd
Dim abDir,hydDir


abDir = InputBox("Enter path to 2dvd AB files","abDir" )
abDir = Trim(abDir)

'hydDir = InputBox("Enter where to put HYD files created","hydDir" )
'hydDir = Trim(hydDir)

set Command = WScript.CreateObject("WScript.Shell")

set fso = CreateObject("Scripting.FileSystemObject")
 
dsdCmd="cmd /K cd /d "&Chr(34)&codeDir&Chr(34)&"& run_REMATCH_code.bat "&abDir&"&exit"
Status=Command.Run(dsdCmd,1,true)

' Message Box for debugging
'MsgBox(hydDir&"\"&hydfile)

' Free objects
Set Command = Nothing
Set fso = Nothing