51Testing软件测试论坛

标题: qtp运行时报“没有权限”的错误，大家碰到过没有？ [打印本页]
作者: gucciyoung    时间: 2010-12-22 16:03
标题: qtp运行时报“没有权限”的错误，大家碰到过没有？
代码实现是这样的，历遍页面上的所有webedit的对象，然后把他们的name写入到txt文件中
  1. Set ObjFso=CreateObject("Scripting.FileSystemObject")
  2. Set Desc=Description.Create()

  4. Desc("micclass").Value="WebEdit"

  6. link_count=Browser("xxx").Page("xxx").ChildObjects(Desc).count

  8. Set list=Browser("xxx").Page("xxx").ChildObjects(Desc)

  10. objFSO.CreateTextFile("D:\Account.txt")

  12. Set objFile=ObjFso.GetFile("D:\Account.txt")

  14. For i=0 to link_count-1

  16.     Set txtFile = objFile.OpenAsTextStream(2,TristateUseDefault)
  17.     txtFile.Writeline list(i).Object.name&Chr(13)
  18. Next

  20.     txtFile.Close
复制代码
在运行到Set txtFile = objFile.OpenAsTextStream(2,TristateUseDefault)这行时，会报错“没有权限”要手动不断的skip，然后数据才能写入到txt中

大家有碰到过相似的问题吗？求解决
作者: gucciyoung    时间: 2010-12-22 16:52
没人知道原因吗

斑竹快来帮忙
作者: TIB    时间: 2010-12-22 17:04
把TristateUseDefault改为-2试试
作者: gucciyoung    时间: 2010-12-27 10:43
回复 3# TIB

还是不行，如果直接改成-2的话，值就取不出来了
作者: wangsc_testing    时间: 2010-12-27 15:49
回复 1# gucciyoung
你不会使用的是windows7系统吧？
作者: arivn    时间: 2010-12-27 16:28
你把OpenAsTextStream方法换成openfile试一下

同时2换成8试一下
作者: kasad    时间: 2011-10-31 14:52
楼主解决了吗？
我用opentextfile(filename,1,False)也遇到没有权限
第一个函数调用没问题
第‘二个函数调用就提示 没有权限
如果单独用第二个函数调用也是没问题
作者: wangyanzhao    时间: 2011-10-31 19:56
不知道 是不是 属性值的问题



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2