Private Sub WriteMap(m As Map, Dir As String, FileName) As String
Dim ser As B4XSerializator
Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
Dim b() As Byte = ser.ConvertObjectToBytes(m)
out.WriteBytes(b, 0, b.Length)
out.Close
End Sub
Private Sub ReadMap (Dir As String, FileName) As Map
Dim ser As B4XSerializator
Return ser.ConvertBytesToObject(Bit.InputStreamToBytes(File.OpenInput(Dir, FileName)))
End Sub