VB binary file Read and write

Array access

Save Array
Private Sub Command2_Click () Dim filenumber as Integerdim S9 as StringDim K as Integerdim L as Integer
On Error Resume nextfilenumber = FreeFile () S9 = "D:\zs.txt" If Dir (S9) <> "then Kill s9open S9 for Binary as #fil Enumberk = UBound (arr) put #fileNumber, Kput #fileNumber,, ARRL = UBound (azz) put #fileNumber,, Lput #fileNumber,, AZZC Lose #fileNumber
End Sub
Reading group private Sub Command3_Click () Dim filenumber As Integerdim S9 as StringDim K as Integerdim l as Integer Dim Ayy () as Int Egerdim Akk () as Integer on Error Resume nextfilenumber = FreeFile () S9 = ' D:\zs.ini ' Open S9 for Binary as #fileNumberGet #fileNumber, Kredim Ayy (k) Get #fileNumber,, Ayy get #fileNumber,, Lredim Akk (L) Get #fileNumber, Akk Close #fileNumb Er
End Sub struct Read and write

VB binary file Read and write