如何在文本文件的开始添加一行文本，不改变原来的内容（在线等候......）

[sxntfhw]

我现在需要在已经存在的文本文件的开始添加一行文本，而不改变文件原来的内容：
我在程序中使用的代码如下，执行结果添加了一行文本，但是文件原来第1行的内容被覆盖了！！！

Open mFilePath For Append As #1
Seek #1, 1
Print #1, mFileName
Close #1

[ikey]

其实可以读所有内容到一个文本类型变量,然后再添加文本后保存

[sxntfhw]

谁可以告诉我啊？？？？？？
最好给出例程！！！

[sxntfhw]

?????????

[rainstormmaster]

'use FSO
'注意引用microsoft scripting runtime对象
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim filename As String
Dim strtemp As String
filename = "d:\123.txt"
Set ts = fso.OpenTextFile(filename)
strtemp = ts.ReadAll
Set ts = Nothing
strtemp = "你要加入的内容" + strtemp
Set ts = fso.CreateTextFile(filename, True)
ts.Write (strtemp)
Set ts = Nothing
End Sub

[lianghongqing111]

被楼上的先到了，没错，先读出文本文件赋给一个变量，然后在变量前增加你要添加的文本，最后写如文件就OK了。

[yefm]

up

[since1990]

帮你 up

[kmzs]

比如 a 是含有要添加的一行文字的变量
你使用Open ... for input as #x 的方法将该文件中所有内容读入变量b
然后b=a & chr(13) & chr(10) & b
再用Open ... for output as #y
print #y,b
close #y
写回

[_西瓜皮_]

拷。。。。

[IT硬科技]

先把原来的文本内容放到剪切板,再加入要添加的文字把原文件覆盖
再把剪切板的内容追加到文本后面