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     结构体读写