seek
Dim FileNo As Long
FileNo = FreeFile()
If UBound(bytebuff) = 0 Then
GoTo ErrHandle
End If
Open strFileName For Binary Access Write As #FileNo
On Error GoTo ErrHandle2
Seek #FileNo, LOF(FileNo) + 1
Put #FileNo, , bytebuff
Close #FileNo
Dim FileNo As Long
FileNo = FreeFile()
If UBound(bytebuff) = 0 Then
GoTo ErrHandle
End If
Open strFileName For Binary Access Write As #FileNo
On Error GoTo ErrHandle2
Seek #FileNo, LOF(FileNo) + 1
Put #FileNo, , bytebuff
Close #FileNo
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货