qtp 清空txt文件

Sub WriteFiles

Dim fso, f1, ts, s

Set fso = CreateObject("Scripting.FileSystemObject"搭姿)'创建文件系统对象配枝清

Set f1 = fso.CreateTextFile("c:\培前testfile.txt", True)'创建一个文件

' Write a line.写文件

Msgbox "Writing file "

f1.WriteLine "Hello World"'写入一行字

f1.Close'关闭文件，文件就被保存了。

End Sub

点击扰如Insert->CalltoExistingAction.在d出的窗口选择Action所脚本调用；调用新action：RunAction"Action2",oneIteration；调用copy的action，把原来的action拷贝到本地一份：RunAction"Copyoflogin_test",oneIteration；调用存在的action，只谈搏调用，不拷贝：RunAction"open_test[源action文件名称]",oneIteration；调用新action：RunAction"Action2",oneIteration；调用copy的action，把原来的action拷贝到本地一份：RunAction"Copyoflogin_test",oneIteration；调用存在的action，只调用，不拷贝：含李祥RunAction"open_test[源action文件名称]",oneIteration；

---