QTP学习——函数小杂烩

1、文件夹操作，不存在就创建

Set fso = CreateObject("Scripting.FileSystemObject") 
If fso.folderexists(rDir) = false then
 fso.CreateFolder(rDir)
end if

 

2、文件操作
Set rTxt=fso.OpenTextFile(rFile, 8,True) '追加形式写文件，如果文件不存在则自动创建
rTxt.WriteLine(now())'写文件

 

3、打开浏览器
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe", "", "", ""
Browser("Browser").Navigate "http://url.com"

 

4、截屏

Desktop.CaptureBitmap rDir & "abc.png",True