怎么写文件和获取一个链接的地址

zhufeirinui

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\Log.txt")
MyFile.WriteLine("This is a test.")
MyFile.Close

总是执行到MyFile.WriteLine("This is a test.")就说有错
还有，我想获得一个页面中一些链接的地址，可不可以不要点链接，一进页面
就直接得到链接地址（因为我想要根据URL来判断权限）
如果不能，那应该怎么做啊
求各位大哥，大姐，指点下

xiaonan

Dim fso, myfile
Set fso=CreateObject("Scripting.FileSystemObject")
Set myfile=fso.openTextFile("C:\result1.txt",8,false)
myfile.writeline "orderno"
myfile.close

写文件,其实帮助里都有例子的.

要取连接地址,先要把这些连接加入的对象库中,然后用GetROProperty("属性")取相应的属性值.

maguschen

你的程序我可以成功运行
你可以查查你这个WINDOWS登陆的用户的权限，是不是你没有写C盘根目录的权限？换别的目录试一下

第二个问题你是在QTP下做么？那可以用描述性编程。
假如有个连接叫 “管理员”（假如而已啊）
strLink = browser(...).Page(...).Link("text:=管理员").GetROProperty("你想要的属性")

zhufeirinui

呵，先谢谢xiaonan ，我试下去