请教各位大哥大姐，关于写文件的问题。

skyhen

我用了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
请各位大哥大姐看一下，哪里有错误 啊
指导一下，小弟先在这里谢谢了。

yangkinki

这只是一个过程，没有执行
在后面加语句 call createfile