qtp运行时报“没有权限”的错误，大家碰到过没有？

gucciyoung

代码实现是这样的，历遍页面上的所有webedit的对象，然后把他们的name写入到txt文件中

1. Set ObjFso=CreateObject("Scripting.FileSystemObject")
   
2. Set Desc=Description.Create()
   
3. 
   
4. Desc("micclass").Value="WebEdit"
   
5. 
   
6. link_count=Browser("xxx").Page("xxx").ChildObjects(Desc).count
   
7. 
   
8. Set list=Browser("xxx").Page("xxx").ChildObjects(Desc)
   
9. 
   
10. objFSO.CreateTextFile("D:\Account.txt")
    
11. 
    
12. Set objFile=ObjFso.GetFile("D:\Account.txt")
    
13. 
    
14. For i=0 to link_count-1
    
15. 
    
16.     Set txtFile = objFile.OpenAsTextStream(2,TristateUseDefault)
    
17.     txtFile.Writeline list(i).Object.name&Chr(13)
    
18. Next
    
19. 
    
20.     txtFile.Close

复制代码

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

大家有碰到过相似的问题吗？求解决

wangyanzhao

不知道 是不是 属性值的问题

kasad

楼主解决了吗？
我用opentextfile(filename,1,False)也遇到没有权限
第一个函数调用没问题
第‘二个函数调用就提示 没有权限
如果单独用第二个函数调用也是没问题

arivn

你把OpenAsTextStream方法换成openfile试一下

同时2换成8试一下

wangsc_testing

回复 1# gucciyoung
你不会使用的是windows7系统吧？

gucciyoung

回复 3# TIB

还是不行，如果直接改成-2的话，值就取不出来了

TIB

把TristateUseDefault改为-2试试

gucciyoung

没人知道原因吗

斑竹快来帮忙