VB二进制文件读写

数组存取
 

存数组

Private Sub Command2_Click()

Dim fileNumber As Integer

Dim S9 As String

Dim k As Integer

Dim l As Integer
 

On Error Resume Next

fileNumber = FreeFile()

S9 = "D:\zs.txt"

If Dir(S9) <> "" Then Kill S9

Open S9 For Binary As #fileNumber

k = UBound(arr)

Put #fileNumber, , k

Put #fileNumber, , arr

l = UBound(azz)

Put #fileNumber, , l

Put #fileNumber, , azz

Close #fileNumber
 

End Sub

读数组

Private Sub Command3_Click()

Dim fileNumber As Integer

Dim S9 As String

Dim k As Integer

Dim l As Integer

Dim ayy() As Integer

Dim akk() As Integer

On Error Resume Next

fileNumber = FreeFile()

S9 = "D:\zs.ini"

Open S9 For Binary As #fileNumber

Get #fileNumber, , k

ReDim ayy(k)

Get #fileNumber, , ayy

Get #fileNumber, , l

ReDim akk(l)

Get #fileNumber, , akk

Close #fileNumber
 

End Sub

结构体读写