51Testing软件测试论坛

标题: 请问，QTP怎样进行文件操作？ [打印本页]

作者: cnothing 时间: 2005-6-21 18:49
标题: 请问，QTP怎样进行文件操作？
就是新建或者打开一个文本，然后写进字符串，然后关闭文件。
能给个例子吗？谢谢

作者: lovetest6 时间: 2005-6-21 19:14
使用FileSystemObject
代码在help里。

作者: hongtang 时间: 2005-6-21 23:30
标题: 也可以用 VBSCRIPT
也可以用 VBSCRIPT
比较方便

作者: lzz 时间: 2005-6-22 09:18
請問在QTP腳本中怎麼插入vbscript,格式是怎样的?与插入到网页中的格式一样么?

作者: ziheng198688 时间: 2008-11-7 11:01
Dim MyFile,MyText
Set MyFile=CreateObject("Scripting.FileSystemObject")
Set MyText=MyFile.OpenTextFile(filename,2,True)
MyText.Write ......
MyText.Close
Set MyText=Nothing
MyFile.Close
Set MyFile=Nothing

作者: lingxin5013 时间: 2008-11-7 15:46
找帮助 FileSystemObject 说的很清楚的拉.

作者: zgc422 时间: 2008-11-8 12:38

原帖由 lzz 于 2005-6-22 09:18 发表
請問在QTP腳本中怎麼插入vbscript,格式是怎样的?与插入到网页中的格式一样么?

qtp的专家视图中脚本的编写就是用的是vbs，不用特意什么格式，你只要语法正确就好
具体代码：
Dim MyFile,MyText
Set MyFile=CreateObject("Scripting.FileSystemObject")
Set MyText=MyFile.OpenTextFile(filename,2,True)
MyText.Write ......
MyText.Close
Set MyText=Nothing
MyFile.Close
Set MyFile=Nothing

作者: mayuping0516 时间: 2008-11-18 09:03
Dim WshShell

Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 2000
WshShell.SendKeys "This is a Test"
WScript.Sleep 1000
WshShell.SendKeys "^s"
WScript.Sleep 500
WshShell.SendKeys "test"
WshShell.SendKeys "%s"
WScript.Sleep 300
WshShell.SendKeys "%{F4}"

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)