关于WScript不能在QTP中使用的解决方法

例子:在C盘中增加10个文档

dim objdir
set ōbjdir=Wscrīpt.CreateObject("scrīpting.filesystemobject")
for k=1 to 10
anewfolder="c:\chapter" & k
objdir.createfolder(anewfolder)
next

以上的脚本直接在QTP里运行会提示不识别wscrīpt对象.

解决方法为把以上文档使用文档编辑器保存为VBS文档.然后在QTP里写以下的脚本

Dim oShell
Set ōShell =CreateObject ("Wscrīpt.shell")
oShell.run "cmd /K wscrīpt d:\测试脚本\tenfolder.vbs"
Set ōShell = Nothing

在QTP上运行后,就可以生成10个文件夹在C盘了.