Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private Storage As ExternalStorage
Private FoldersStack As List
Private UpItem As ExternalFile
Private ctxt As JavaObject
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private root As ExternalFile
Private PersistantUri As String
Private const FileName As String = "PersistantUri"
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
ctxt.InitializeContext
If FirstTime Then
Storage.Initialize (Me, "Storage")
FoldersStack.Initialize
UpItem.Initialize
End If
If File.Exists(File.DirInternal, FileName) Then
PersistantUri = File.ReadString(File.DirInternal, FileName)
Log($"PersistantUri=${PersistantUri}"$)
End If
Storage.SelectDir(False)
Wait For Storage_ExternalFolderAvailable
Dim lFileName As String="Daten_Mein_Haushaltsbuch.db"
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirRootExternal & "/Mein Haushaltsbuch", lFileName)
Dim Datum_Aktuell, Zeit_Aktuell As String
DateTime.DateFormat = "yyyy.MM.dd"
DateTime.TimeFormat = "HH:mm:ss"
Datum_Aktuell = DateTime.Date(DateTime.Now)' heutiges Datum als String
' Zeit_Aktuell = DateTime.TimeParse(DateTime.Time(DateTime.Now))
Zeit_Aktuell = DateTime.Time(DateTime.Now)
Dim lFile As ExternalFile
lFile=Storage.CreateNewFile(Storage.root,Datum_Aktuell.Trim & "_" & Zeit_Aktuell & "_" & lFileName)
Dim outputstream1 As OutputStream
outputstream1= Storage.OpenOutputstream(lFile)
File.copy2(InputStream1,outputstream1)
InputStream1.Close
outputstream1.close
'Zweite Datei sichern
Dim lFileName As String="Daten_Mein_Haushaltsbuch.db-journal"
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirRootExternal & "/Mein Haushaltsbuch", lFileName)
Dim lFile As ExternalFile
lFile=Storage.CreateNewFile(Storage.root,Datum_Aktuell.Trim & "_" & Zeit_Aktuell & "_" & lFileName)
Dim outputstream1 As OutputStream
outputstream1= Storage.OpenOutputstream(lFile)
File.copy2(InputStream1,outputstream1)
InputStream1.Close
outputstream1.close
Msgbox2("Database copied. File Name: "&lFileName,"Info","OK","","",Null)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub