QTP显示「此处需要物件：Wscript」

bertha2124

我有一段代码，存在.vbs中执行是ok的，可是整段代吗移到qtp中回放时就执行错误，会显示「此处需要物件：Wscript」
代码如下：
Dim Directory
directory = CreateObject("Scripting.FileSystemObject").GetParentFolderName(Wscript.ScriptFullName)
MsgBox directory

麻烦各位，谢谢。

假装不在

你分开步骤写。先给set的object先，然后在去拿它的名字。

bertha2124

请问是写成下面这样吗？

取得該script的路徑
Set objFSO = CreateObject("Scripting.FileSystemObject")
dictionary = objFSO.GetParentFolderName(Wscript.ScriptFullName)

改成这样也不行，一样出现「此处需要物件：Wscript」，

救命ㄚ

gy21st

QTP脚本中不支持Wscript对象

bertha2124

那怎麽办呢？
我用调外部文件的方式，也是出现一极的问题，
那这一段我该怎麽处理，
麻烦前辈明示~
感恩！

classlibrary

你能说明你要做什么操作吗？

bertha2124

我主要是想利用Wscript.ScriptFullName取得这个script的完整路径，

如果QTP脚本中不支持Wscript对象，那如果遇到需要运用到Wscript对像时，该怎麽处理才好呢？
请前辈帮帮忙~

heqingbluesky

用File.Path这个函数就可以得到Script的完整路径

或者：创建一个Wscript对象，但是在语句中不能出现Wscript（QTP目前不支持），例如：Set AA＝CreateObject（BB）
然后再用AA去获得这个路径。

zhuyuancan

为什么不调用环境变量中“TestDir”属性来得到路径呢

bertha2124

我将之前写成.vbs的脚本，移置qtp中使用的，
所以没有深入想响怎麽用qtp去获取我想要结果，
谢谢各位前辈指导！