对文本文件进行操作，读至文件尾，有什么函数可以不用关闭文件就能回到文件头？

Question

回复人： cenguokai(凯) ( ) 信誉：100  2004-08-30 15:50:00  得分: 0  
 
 
   如果用fopen()打开的，就用fseek()
如果用CreateFile()打开的，就用SetFilePointer()
 
 
本来以为解决了，谁知SetFilePointer不能用,只好......

Answer 1

只能使用Random、Binary方式打开才可，
Open FileName For Random as #1 Len=XXXX
Open FileName For Binary as #1再用Seek搬针：
Seek [#]filenumber, position
在Binary时，position是字节号；
在Random时，position是记录号。

Answer 2

代码：
dim fso As New FileSystemObject
dim fil As File
dim ts As TextStream
Set fil = fso.GetFile("1.txt")
Set ts = fil.OpenAsTextStream(ForReading)