标签：
Dim Fso,TxtFile,Isok
Set Fso = createobject("Scripting.FileSystemObject")
Isok = Fso.FileExists("f:\a.txt")
If Isok = true Then
Set TxtFile = Fso.OpenTextFile("f:\a.txt",8,true)
TxtFile.WriteLine("18030753806" )
Else
MsgBox "Error"
End If
Set TxtFile = Nothing
Set Fso = Nothing
本例是为方便压力测试时数据的导入，利用QTP运行该代码，然后将成功注册的用户写入a.txt文件内，将其改名为lr内.dat数据文件，lr就可以直接使用了
标签：
原文地址：http://www.cnblogs.com/Tester-ABX/p/4560316.html
