|
2#
楼主 |
发表于 2011-3-24 16:09:18
|
只看该作者
搜索到以下解决方案,试过之后仍然不能保存,此问题依然存在
1、新建一个test,粘贴如下代码:
Dim fso, MyFile
Set fso = CreateObject("scrīpting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\testfile.txt", True)
MyFile.WriteLine ("This is a test")
MyFile.WriteLine ("This is another test")
MyFile.Close
2、运行粘贴的代码,如有错误提示activex部件不能创建对象: 'scrīpting.filesystemobject',则继续执行步骤3,否则该方法不保证解决问题
3、确保System32目录存在文件scrrun.dll,开始菜单---运行,输入regsvr32 scrrun.dll,回车
4、重启qtp,应该可以保存文件了。 |
|