Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private AppFolder As String = "KeepImage"
Private AppFolderpath As String
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
Dim F5S As F5Steg
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
CreateAppFolder
End Sub
Sub Activity_Resume
If Not(File.Exists(File.DirDefaultExternal, "dogTwo.png")) Then
File.Copy(File.DirAssets, "dogTwo.png", File.DirInternal, "dogTwo.png")
End If
F5S.ExtractToString(File.Combine(File.DirInternal , "dogTwo1.png"),"Test")
End Sub
Sub Test_StringExtracted(SecretMessage As String)
Log("Here")
Log("SecretMessage = " & SecretMessage)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub CreateAppFolder
If File.IsDirectory( File.DirInternal, AppFolder) = False Then
File.MakeDir( File.DirInternal, AppFolder )
Log("Folder Created!")
AppFolderpath = File.DirInternal & "/" & AppFolder
Log(AppFolderpath)
Else
Log("Folder Exist!")
AppFolderpath = File.DirInternal & "/" & AppFolder
Log(AppFolderpath)
End If
' If File.Exists( File.DirAssets,"somefile.txt" ) = True Then
' File.Copy( File.DirAssets, "somefile.txt", AppFolder, "somefile.txt" )
' End If
End Sub