QTP调用记事本程序点击”另存为“菜单时出现”共用对话框错误“
在QTP脚本中，ACtion1调用ACtion2，ACtion2脚本的功能就是打开指定文件另存为ANSI格式，问题就出现在脚本执行在执行到点击记事本“另存为”菜单时，“共用对话框错误”就出现了，不知如何解决此问题，望高人相助！ACtion2脚本如下（单独运行不会出现此问题）：
DimfileName ,text, filePath
'filePath =Parameter("FilePath")
filePath = "G:\Program Files\HP\QuickTest Professional\Tests\Test2\Test2.usr"
SystemUtil.Run "notepad.exe" ,filePath
fileName =Right ( filePath , len( filePath) - InStrRev( filePath, "\",-1,1))
'记事本.usr - 记事本
text= fileName&" - 记事本"
Dim dsc, dscButton
Set dsc=Description.Create()
dsc("text").value = text
Window(dsc).WinMenu("menuobjtype:=2").Select "文件(F);另存为(A)..."
Dim dscDialog,dscComboBox , ComboBoxCount,ComboBoxCollection,CodeType
SetdscDialog =Description.Create()
dscDialog("text" ).value = "另存为"
SetdscComboBox=Description.Create()
dscComboBox("nativeclass").value = "ComboBox"
'set ComboBoxCollection=Window(dsc).Dialog( dscDialog).ChildObjects( dscComboBox)
'ComboBoxCount= ComboBoxCollection.count
'set CodeType=ComboBoxCollection( ComboBoxCount -1)
Window(dsc).Dialog( dscDialog).WinComboBox("Class Name:=WinComboBox","Index:=3").Select "ANSI"
setdscButton =Description.Create()
dscButton ("nativeclass").value = "Button" '"text:=保存(&S)","nativeclass:=Button","Index:=0"
dscButton ("Index").value = "0"
Window(dsc).Dialog( dscDialog).WinButton(dscButton ).Click
Window(dsc).Dialog( dscDialog).Dialog( dscDialog).WinButton(dscButton ).Click
Window(dsc).Close 问题解决了！
原来我在ACtion1中用到了此语句：
Dim filePath
filePath= Environment("TestDir") &"\\MyLog.vbs"
RunAction "ACtion2", oneIteration ,filePath '把指定的vbs脚本文件另存为ANSI格式
ExecuteFile filePath '执行刚保存的vbs文件，获取相应的类及函数
就会出现上述错误，
但是当我直接用文件名，也就是把以下两句话交换一下：
filePath= Environment("TestDir") &"\\MyLog.vbs" 替换为
filePath= "MyLog.vbs"
在执行脚本，这个错误就不存在了！
就这小小的问题困扰了我两天，现在终于解决了！
页:
[1]
