project requirement: 1. project has to be mobile, meaning no hard coded path. using environment: Environment("TestDir") to get the current test directory. Constructur the directory like this c:MercuryTour for scripts, C:mercuryTourDatatable for datatables, c:mercurytourobjectrepository for object repository, c:mercuryTourresults for saved test result #main script # get the pathes filepath=Environment("TestDir") datatablepath=filepath&"datatable" resultpath=filepath&"results" #ask user to select test packages, functional regression or GUI testing packageList=Array("functional regression","GUI testing) for i = 0 to 1 newmess = msg & vbCrLf & cstr(i + 1) & " - " & List(i) 'loop through the Array and add msg = newmess 'Each item from it to the list next selectPackage= |