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