文件操作遇到的问题，需要大家帮忙

[gwzgonzoopera]

写了一个二进制流文件，当二次写入的时候不想从头开始写，想接着以前的往下写，怎么操作呢，

Dim strBlackA As String
Dim filenum As Integer
Dim byteSource(20) As Byte
Dim Q As Integer
Dim id As Integer
Dim MyChar



strBlackA = "c:\" & "FileB" & Format(Now, "YYMMDD") & "01" & ".bin"
KillFile "strBlackA"





byteSource(0) = &H0
byteSource(1) = &H1
byteSource(2) = &H2
byteSource(3) = &H3
byteSource(4) = &H4
byteSource(5) = &H5
byteSource(6) = &H6
byteSource(7) = &H7
byteSource(8) = &H8
byteSource(9) = &H9
byteSource(10) = &H10
byteSource(11) = &H11
byteSource(12) = &H12
byteSource(13) = &H13
byteSource(14) = &H14
byteSource(15) = &H15
byteSource(16) = &H16
byteSource(17) = &H17
byteSource(18) = &H18
byteSource(19) = &H19
byteSource(20) = &H20


filenum = FreeFile()
Open strBlackA For Binary As #filenum



For Q = 0 To UBound(byteSource)
Put #filenum, id + Q, byteSource(Q)

Next Q
Close #filenum

就是Put #filenum, id + Q, byteSource(Q)中id的值怎么获得

[一笑拔剑]

可以把文件指针移动到文件末啊

[一笑拔剑]

VB中可以通过指针函数[seek]来设置当前读写位置。

[gwzgonzoopera]

对写文件不太熟悉，能不能给写一下
多谢楼上支持

[一笑拔剑]

Open FileName For Binary As #FileNumber
Put #FileNumber, LOF(FileNumber) + 1, Data1
……
Close #FileNumber

我现在机器上没有vb
代码可能是这样

你试下看看

[gwzgonzoopera]

可以了，多谢了

[booksoon]

Open FileName For Binary As #FileNumber
Put #FileNumber, LOF(FileNumber) + 1, Data1
……
Close #FileNumber

[lyserver]

用seek定义,另外写byte()不需要使用循环,直接写就可以了
Dim b() As Byte
Dim filenum As Integer, filelen As Long

filenum = FreeFile
Open "c:\temp.txt" For Binary As #filenum
Seek #filenum, LOF(filenum) + 1 '在文件后面追加
b = StrConv("文件内容" & vbCrLf, vbFromUnicode)
Put #filenum, , b
Close #filenum