51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2090|回复: 3
打印 上一主题 下一主题

[原创] 加载VBS文件到 Library 库中出错。

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-11-25 11:04:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
加载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
请问哪里出错了
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-11-25 15:54:18 | 只看该作者
这些代码要在QTP之外用VBS文件执行
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2010-11-26 10:32:19 | 只看该作者
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文件的一些心得啊??最近在学这方面的东西
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2010-12-11 13:53:43 | 只看该作者
ding
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-9 10:04 , Processed in 0.071635 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表