怎么样可以在一个文件文件(.txt)里追加内容。

Question

Open "A.txt" For append As #1
  Print #1,"303 (吴志坤)是个大笨蛋！，居然不知道append是追加。"
  Print #1,"从QBASIC时代就有这个语句了。"
  Print #1,"Output是从头写，Input是读，Append是追加。"
  Print #1,"Print #文件号，是写文件。"
  Print #1,"Line Input #文件号，是成行读文件。"
  Print #1,"你地明白否？"
Close #1

Answer 1

Open "A.txt" For Output As #1
  Seek Lof(1)
  Print #1,"303 (吴志坤)是个大笨蛋！"
  Print #1,"即使没有Append方式也还有Seek语句和Lof函数。"
  Print #1,"把写文件指针Seek到文件结尾字节Lof(1)处。"
  Print #1,"照样是追加写文件。"
Close #1

Answer 2

Open "A.txt" For Output As #1
  Seek Lof(1)
  Print #1,"303 (吴志坤)是个大笨蛋！"
  Print #1,"即使没有Append方式也还有Seek语句和Lof函数。"
  Print #1,"把写文件指针Seek到文件结尾字节Lof(1)处。"
  Print #1,"照样是追加写文件。"
Close #1

Answer 3

Dim tFSO As FileSystemObject
Set tFSO=createObject("Scripting.FileSystemObject")
Set tFT=tFSO.OpenTextFile("A.txt",8,True)
tFT.Write "303 (吴志坤)是个大笨蛋！"
tFT.Write "用FileSystemObject也可以读写文本文件。"
tFT.Write "这个对象目前只支持文本文件，不如Open灵活。"
tFT.Write "你看到这个办法也可以采用，而且可以在VBS里使用。"
tFT.Write "一些坏蛋们写的病毒就用这个感染其他HTML文件。"
tFT.Write "以上说你是笨蛋只是开玩笑，希望不要见怪。"
tFT.Close
Set tFT=Nothing
Set tFSO=Nothing

Answer 4

Dim tFSO As FileSystemObject
Set tFSO=createObject("Scripting.FileSystemObject")
Set tFT=tFSO.OpenTextFile("A.txt",8,True)
tFT.Write "303 (吴志坤)是个大笨蛋！"
tFT.Write "用FileSystemObject也可以读写文本文件。"
tFT.Write "这个对象目前只支持文本文件，不如Open灵活。"
tFT.Write "你看到这个办法也可以采用，而且可以在VBS里使用。"
tFT.Write "一些坏蛋们写的病毒就用这个感染其他HTML文件。"
tFT.Write "以上说你是笨蛋只是开玩笑，希望不要见怪。"
tFT.Close
Set tFT=Nothing
Set tFSO=Nothing