Sub FileRemove(part As String)
Dim xui As XUI, Data As Map
Public const DataFile As String = "data.dat"
Data.Initialize
Dim ser As B4XSerializator
Data = ser.ConvertBytesToObject(File.ReadBytes(xui.DefaultFolder, DataFile))
Log(Data)
Data.Remove(part)
Log(Data)
File.WriteBytes(xui.DefaultFolder, DataFile, ser.ConvertObjectToBytes(Data))
End Sub