（急！在线求解）怎么样以二进制的方式向文件尾部追加数据？

Question

seek #1, lof(1)
put #1,,bytearray()

Answer 1

错了一点:(
    Dim tt(1) As Byte
    
    tt(0) = 1
    tt(1) = 2
    
    Open "i:\2.txt" For Binary As #1
    Seek #1, LOF(1)+1 '漏了+1
    Put #1, , tt
    Close #1

Answer 2

谢谢啊，能不能帮我详细一点地说一下seek的用法呢，还有就是先用open filename for binary as #filenumber
 seek #filenumber, lof(filenumber)创建一个新的文件
然而编译的时候会提示错误的文件号，这是为什么？

Answer 3

dim filemnumber as long
filenumber=freefile

Answer 4

filenumber=freefile
seek filenum, position把ID号为filenum的文件的指针指向position处的字节，任何input命令
可以从此处读取字符

Answer 5

filenumber=freefile
seek filenum, position把ID号为filenum的文件的指针指向position处的字节，任何input命令
可以从此处读取字符

Answer 6

还有一个删除文件的命令是什么啊，不是文件对象的那个，是类似于filecopy的那一个

Answer 7

' Delete all *.TXT files in current directory.
Kill "*.TXT"   

Answer 8

dim filemnumber as long
filename=freefileOpen "1.exe" For Binary As filename          
     Seek #filename, LOF(filename)
     position = Loc(filename)
     Put #filename, , DiveSerialNum
  Close #filename

Answer 9

to： rrqx(ya)
position = Loc(filename)
能不能解释一下啊，loc的作用
还有position怎么没有用上？