用PUT 的方法向 binary 文件追加问题.

Question

Open "d:\menu\nation\" & compTemp & ".dat" For Binary As #1
        MyRecord.SingerID = xlsheet.Cells(i_row, 1)
        MyRecord.SingerNames = Trim(xlsheet.Cells(i_row, 2)) & Chr(0)
        MyRecord.SingerPath = ""
        Put #1, , MyRecord
      
Close #1我要追加记录该加什么参数,或者有其他写法呢?请指教.

Answer 1

Seek FileNum, BeginPos
  
Open "d:\menu\nation\" & compTemp & ".dat" For Binary As #1
        MyRecord.SingerID = xlsheet.Cells(i_row, 1)
        MyRecord.SingerNames = Trim(xlsheet.Cells(i_row, 2)) & Chr(0)
        MyRecord.SingerPath = ""
        Seek #1，开始字节数
        Put #1, , MyRecord
      
Close #1

Answer 2

我叫 HuJunjie  楼主汗啊