如何在打开文件的同时定位到文件的特定位置？

Question

定位到结尾：FN=FreeFileOpen pFileName For Append As #FN '追加方式打开
  ……
Close #FN或者：FN=FreeFileOpen pFileName For Output As #FN '追加方式打开
  Seek LOF(FN)
  ……
Close #FN

Answer 1

Seek语句将文件指针定位到文件的指定字节位置。而Seek函数能返回当前指针。N=Seek(FN) '获得当前文件指针的位置。Seek FN,Address '设定指针。上面的第二个程序有错误，应该是：FN=FreeFileOpen pFileName For Output As #FN '追加方式打开
  Seek FN，LOF(FN)+1
  ……
Close #FN如果是追加到结尾，推荐你用第一个办法。

Answer 2

KiteGirl(小仙妹) 会用VB啦。
再接再厉阿。