|
'首先找到需要加载的task文件
DataTable.GetSheet(TEST_SHEET).SetCurrentRow( 1 )
For i=1 to row_count
If DataTable("IDX",TEST_SHEET) = "√" Then
taskFileName = DataTable("bizName",TEST_SHEET)
if NOT taskFile.Exists(taskFileName) Then
taskFilePath = pathFind(Environment("testScriptFolderName"),taskFileName,"vbs")
call taskFile.add(taskFileName,taskFilePath)
ExecuteFile taskFilePath '加载task脚本文件
logPrint("加载Task脚本文件完成。"&taskFilePath)
Execute "Set obj"&taskFileName&" = new "&taskFileName '初始化task的类
End If
End If
DataTable.GetSheet(TEST_SHEET).SetNextRow
Next |
|