求一段vb的代码，写入文本

[york_lin]

求一段代码：
向一个指定的文件test.txt写入信息。
Sub writeFile(str as String)
'
end sub

Sub clear()
end sub
每次调用过程的时候，如riteFile("123"),writeFile("abc")

test.txt的内容如下：
123
abc

使用clear()时清空文本的内容。

[zhui19760820]

Dim objmyfile, objmytext
Set objmyfile = CreateObject("scripting.filesystemobject")

Dim strfile, strfile2
strfile2 = App.Path & "\aa2.txt"
Dim objT2

Set objT2 = objmyfile.CreateTextFile(strfile2)

objT2.WriteLine (strA)

[lysamper]

'根据内容来生成文件
Sub Write_File()
Dim fso As New FileSystemObject, fil As File, ts As TextStream
Set fso = CreateObject("Scripting.Filesystemobject")
fso.CreateTextFile ("d:\Warinfo.txt")
Set fil = fso.GetFile("d:\Warinfo.txt")
Set ts = fil.OpenAsTextStream(ForWriting)
ts.WriteLine "***"
ts.WriteLine "***"
ts.WriteLine "***"

ts.WriteBlankLines (3)
ts.Close
End Sub

[liu584]

Public Sub Writefile(Text As String, Filename As String)
Open Filename For Append As #1
Write #1, Text
Close
End Sub

[liu584]

对不起。应该是
close #1

[zhang_dq]

Open 文件名 For Append As #1
Print #1,要写的内容
Close #1

[Maconel]

Public Sub Writefile(MyData As String, Filename As String)
Open Filename For Append As #1
Write #1, MyData
Close #1
End Sub

Public Sub Writefile(filename as string)
open Filename For output as #1
Close #1
end Sub

[Maconel]

sorroy,第二个错了，应该是Public Sub Clear(Filename as string)