07-09-2008, 12:10 PM
Here is the code:
Code:
Option Explicit
' Load StartUp class
ExecuteFile "C:\Frame hai\Utilities\StartUp.vbs"
Dim strTestSuite, keywordTest
' Path to the Test suite
strTestSuite = "C:\Frame hai\Test Suite.xls"
' Create instance of StartUp class
Set keywordTest = New StartUp
' Execute tests in the specified workbook
keywordTest.funRunTest(strTestSuite)
' Release resource
Set keywordTest = Nothing