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

Question

求一段代码：
向一个指定的文件test.txt写入信息。
Sub writeFile(str as String)
'
end subSub clear()
end sub
每次调用过程的时候，如riteFile("123"),writeFile("abc")test.txt的内容如下：
123
abc使用clear()时清空文本的内容。

Answer 1

Dim objmyfile, objmytext
Set objmyfile = CreateObject("scripting.filesystemobject")Dim strfile, strfile2
strfile2 = App.Path & "\aa2.txt"
Dim  objT2Set objT2 = objmyfile.CreateTextFile(strfile2)objT2.WriteLine (strA)

Answer 2

'根据内容来生成文件
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

Answer 3

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

Answer 4

对不起。应该是
close #1

Answer 5

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

Answer 6

Public Sub Writefile(MyData As String, Filename As String)
Open Filename For Append As #1
   Write #1, MyData
Close #1
End SubPublic Sub Writefile(filename as string)
open Filename For output as #1
Close #1
end Sub

Answer 7

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