dim filelength as long
open filename for binary as #1
filelength=filelen(filename)
seek #1,filelength-10
然后删除,ok?
open filename for binary as #1
filelength=filelen(filename)
seek #1,filelength-10
然后删除,ok?
调试欢乐多
open filename for binary Access Read Write as #1
Get #1,, strTemp
Put #1,,left(strTemp, len(strTemp)-10)
close #1