QTP中为什么会提示缺少对象呢？

xhhuang1618 发表于 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")

ls_721521 发表于 2009-5-5 16:05:54

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

xhhuang1618 发表于 2009-5-5 16:10:38

回复 2# 的帖子

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

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

ls_721521 发表于 2009-5-5 16:42:02

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

xhhuang1618 发表于 2009-5-5 17:19:21

回复 4# 的帖子

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

南拳王 发表于 2009-5-5 17:52:23

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

ziheng198688 发表于 2009-6-9 10:35:51

原帖由 ls_721521 于 2009-5-5 16:42 发表 http://bbs.51testing.com/images/common/back.gif
set objset = objfso.DeleteFolder(strpath) '去掉set
objfso.DeleteFolder(strpath)方法没有返回值所以只要用以下格式就可以了
objfso.DeleteFolder(strpath)

页: [1]

51Testing软件测试论坛 's Archiver