如果想接在txt文件里最后一行的后面继续print，且要和最后一行的最后一个字符之间用空格隔开，该如何实现？

谢谢各位！

[此贴子已经被作者于2006-5-13 16:07:12编辑过]

f4 = FreeFile
Open App.Path & "/aaa.txt" For Input As f4
Do While Not EOF(f4)
Line Input #f4, t
a = a & "##" & t
Loop
Close f4
b = Split(a, "##")
n = UBound(b)
f3 = FreeFile
Open App.Path & "/aaa.txt" For Output As f3
For i = 1 To n - 1
Print #f3, b(i)
Next
Print #f3, b(n) & " " & Text1.text
Close f3

谢谢啊 可是个别语句我不是十分看的懂 不知道如何改才能用到自己的程序里面
呵呵 楼上的在吗？

自己改了一下 还是可以用的 谢谢“vb爱上我”