### Create Binary File

Example of creating a Binary File using the jRandomAccessFile Library.
Two buttons used, one to write the file and the other to read the file.
`Sub btnWriteRaf_Action
Dim raf As RandomAccessFile
raf.Initialize(File.DirApp, "raf.dat", False)
Dim m As Map = CreateMap("Name":"Name", "City":"City", "Age":60)
raf.WriteB4XObject(m, 0)
raf.Close
End Sub`
`Sub btnRead_Action
Dim raf As RandomAccessFile
TextArea1.Text = ""
raf.Initialize(File.DirApp, "raf.dat", False)
Dim m As Map = raf.ReadB4XObject(0)
raf.Close
'Iterate over both map keys and values
For Each Key As String In m.Keys
Dim Value As String = m.Get(Key)
Log($"Item: ${Key}, value: ${Value}"$
Next
End Sub`

Changed: , Category: Files, File: T6C193M1372.htm, ID: 1372