1. 程式人生 > >VB二進位制檔案讀寫

VB二進位制檔案讀寫

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 結構體讀寫