我用了QTP中的HELP中的例子,但是不能写文件啊。
代码如下:
Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
' Write a line with a newline character.
tf.WriteLine("Testing 1, 2, 3.")
' Write three newline characters to the file.
tf.WriteBlankLines(3)
' Write a line.
tf.Write ("This is a test.")
tf.Close
End Sub
请各位大哥大姐看一下,哪里有错误 啊
指导一下,小弟先在这里谢谢了。