Sub Process_Globals
End Sub
Sub Globals
Dim lstTest As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
addViews
WriteFiles
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub addViews
lstTest.Initialize("")
Activity.AddView(lstTest, 0dip, 0dip, Activity.Width, Activity.Height)
End Sub
Sub WriteFiles
' This file will be written to the app private storage
File.WriteString(File.DirInternal, "File One", "This is the data")
lstTest.AddSingleLine("Wrote file to private storage")
' This file will be written to the app public storage.
' It will be in sdcard/Android/data/<Package name>/files/
' The User will have to give WriteExternalStorage permission
File.WriteString(File.DirDefaultExternal, "File Two", "This is the data")
lstTest.AddSingleLine("Wrote file to public storage")
' This file will be written to the sdcard root folder.
' Again, the User will have to give permission
File.WriteString(File.DirRootExternal, "File Three", "This is the data")
lstTest.AddSingleLine("Wrote file to sdcard root")
End Sub