vb用fso写入文本文件

来源：百度知道 编辑：UC知道 时间：2024/05/27 03:34:56
怎样用fso写入一个已经存在的文本文件？越简单越好，因为我只写入一行。加50分
试了一下，能行，不过每次写入都添加到了最后一行，内容越来越多。怎样改进一下，让每一次都写入第一行，只写一行就行

ForWriting
====================
Dim oFSO As New filesystemobject

Dim oText As TextStream

Set oText = oFSO.OpenTextFile("c:\a.txt", ForWriting, True)

oText.WriteLine "xxx"

oText.Close

'将字符串写入文件, filePath:文件路径,strTmp:要写入的字符串
Private Sub WriteFile(filePath As String, strTmp As String)
Open filePath For Output As #1
Print #1, strTmp
Close #1
End Sub

你的提问很容易让人联想到添加而不是覆盖