请问，高手请进！！！！！！！！！！！！！！！！！！！！！！

[bgu]

我在写一个读文本文件的程序时，遇到这样的一个问题：
程序一段是这样的：
----------------------------------------------------------------
Private Sub Command8_Click()
Dim fso As New FileSystemObject
Dim fil As file
Dim ts As TextStream
Dim strBuffer1, strBuffer2, str As String
cd3.Filter = "Text (*.txt)|*.txt"
cd3.ShowSave
gf_strOpenFile = cd3.filename
Set ts = fso.CreateTextFile(gf_strOpenFile, True)
Do While Not EOF(FileHandle2%)
Line Input #FileHandle2%, strBuffer2
ts.Write (strBuffer2) & vbCrLf
Loop
ts.Close
Close #FileHandle2%
End Sub
--------------------------------------------------------
我想在DO while到loop写完后，（也就是：EOF(FileHandle2%)这个到了最后！）可以回去这个文件的最开头，再重新写过，但不晓的命令是什么？
请大哥们帮个忙了！·

[山顶洞人-平]

seek #filenum,0

[bgu]

上面的大哥，请问seek这个的格式是什么？

[zyl910]

Seek 语句


在 Open 语句打开的文件中，设置下一个读/写操作的位置。

语法

Seek [#]filenumber, position

Seek 语句的语法具有以下几个部分：

部分 描述
filenumber 必要。任何有效的文件号。
position 必要。介于 1 – 2，147，483，647 之间的数字，指出下一个读写操作将要发生的位置。


说明

在 Get 及 Put 语句中指定的记录号将覆盖由 Seek 语句指定的文件位置。

若在文件结尾之后进行 Seek 操作，则进行文件写入的操作会把文件扩大。如果试图对一个位置为负数或零的文件进行 Seek 操作，则会导致错误发生。

[bgu]

谢谢大哥了！^0^