怎样截去文件的最后几个字符?

Question

用 VB对 二 进 制 的 文 件 进 行 操 作 时 ， 如 何 删 去 文 件 后 的 N个 字 节 ？ 
http://go1.163.com/~askpro/msg18/qa93.htm

Answer 1

dim filename$,a$,b$
dim c
open filename$ for input as #1
line input #1,a$
do while not eof(1)
line input #1,b$
a$=a$ & chr(13) & chr(10) & b$
loop
close
c=number 'c 为要去掉的字符数
a$=left(a$,c)

Answer 2

haha !这样不对的，文件如果很大，那么……嘿嘿！就出错了！

Answer 3

我记得在DELPHI中是直接用TRUNCATE：)