设为首页收藏本站

开启辅助访问软件测试门户软件测试培训软件测试论坛测试解决方案文章资料精选软件测试博客软件测试招聘

51Testing软件测试论坛 »软件测试论坛 › [管理工具] › [自动化测试工具及框架] › [QuickTest Professional] › QTP中为什么会提示缺少对象呢？

发新帖

查看: 3535|回复: 6

上一主题

下一主题

[求助] QTP中为什么会提示缺少对象呢？

该用户从未签到

电梯直达

跳转到指定楼层

1^#

发表于 2009-5-5 15:55:24 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

谁帮我看一下，下面的脚本运行是为什么会出错
Function hanshu(strpath)
Dim objfso,objset
Set objfso = CreateObject("Scripting.FileSystemObject")
If Not objfso.FolderExists(strpath) Then
set objset = objfso.CreateFolder(strpath)
else
'缺少对象：objfso.DeleteFolder
set objset = objfso.DeleteFolder(strpath)
End If
hanshu = objset
End Function

hanshu("c:\new folder")

提示, QTP, 对象

本帖子中包含更多资源

您需要登录才可以下载或查看，没有帐号？(注-册)加入51Testing

x

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

相关帖子

【喜讯】51微信互动平台签到赚积点上线了

回复

使用道具举报

该用户从未签到

2^#

发表于 2009-5-5 16:05:54 | 只看该作者

加断点调试了？去掉断点试试。

回复支持反对

使用道具举报

该用户从未签到

3^#

楼主| 发表于 2009-5-5 16:10:38 | 只看该作者

回复 2# 的帖子

没加断点啊。
还有一点，虽然有出错提示，但DeleteFolder方法仍然被执行。

[ 本帖最后由 xhhuang1618 于 2009-5-5 16:12 编辑 ]

【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！

回复支持反对

使用道具举报

该用户从未签到

4^#

发表于 2009-5-5 16:42:02 | 只看该作者

set objset = objfso.DeleteFolder(strpath) '去掉set

回复支持反对

使用道具举报

该用户从未签到

5^#

楼主| 发表于 2009-5-5 17:19:21 | 只看该作者

回复 4# 的帖子

谢谢楼上的，问题解决了。
不过你能帮我解释一下，为什么这里不用SET呢？

回复支持反对

使用道具举报

TA的每日心情

	开心 2015-2-28 09:48

签到天数: 1 天

连续签到: 1 天

[LV.1]测试小兵

6^#

发表于 2009-5-5 17:52:23 | 只看该作者

去不去set都一样的效果，set是为对象或者对象引用赋值的。

【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！

回复支持反对

使用道具举报

该用户从未签到

7^#

发表于 2009-6-9 10:35:51 | 只看该作者

原帖由 ls_721521 于 2009-5-5 16:42 发表
set objset = objfso.DeleteFolder(strpath) '去掉set

objfso.DeleteFolder(strpath)方法没有返回值所以只要用以下格式就可以了
objfso.DeleteFolder(strpath)

回复支持反对

使用道具举报

发新帖

站长推荐 /1

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

GMT+8, 2024-11-27 10:43 , Processed in 0.076046 second(s), 29 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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