51Testing软件测试论坛

标题: 加载VBS文件到 Library 库中出错。 [打印本页]

作者: jino007 时间: 2010-11-25 11:04
标题: 加载VBS文件到 Library 库中出错。
加载VBS文件到 Library 库中出“This operation cannot be performed during a run session.”错误。

   Dim obj ,qtLibraries
            Set obj = CreateObject("QuickTest.Application")
            Set qtLibraries = obj.Test.Settings.Resources.Libraries
            If qtLibraries.Find( TaskVbsFilePaths)=-1Then
   msgbox TaskVbsFilePaths
               qtLibraries.Add TaskVbsFilePaths,3
   End If
请问哪里出错了

作者: TIB 时间: 2010-11-25 15:54
这些代码要在QTP之外用VBS文件执行

作者: jino007 时间: 2010-11-26 10:32
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

上面的这段代码：能不能解释一下加载“初始化task的类”的一下用法，或者是说加载外部的VBS文件的一些心得啊？？最近在学这方面的东西

作者: jino007 时间: 2010-12-11 13:53
ding

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)