粘贴到txt文件而不覆盖

Question

嗨，我正在尝试将网站上的一些数据粘贴到txt中，是否可以在不覆盖文件的情况下粘贴到新行上？这是我的密码

​

Set app = CreateObject("Shell.Application")
For Each window In app.Windows()
  If InStr(1, window.FullName, "iexplore", vbTextCompare) > 0 Then
    Set ie = window
    Exit For
  End If
Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("output.txt", 2, True,utf-2)
f.Write ie.Document.All.Item("resltext").innerText
f.Close

​

Answer 1

明白了

​

f.WriteLine ie.Document.All.Item("resltext").innerText

​

Answer 2

来自opentextfile.asp，

看起来如果你改变了

 Set f = fso.OpenTextFile("output.txt", 2, True,utf-2) 

至

 Set f = fso.OpenTextFile("output.txt", 8, True,utf-2) 

它将附加到文件的末尾，而不是覆盖。