Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Log("File.DirInternal=" & File.DirInternal)
Log("file.DirDefaultExternal=" & File.DirDefaultExternal)
Log("File.DirRootExternal=" & File.DirRootExternal)
If File.ExternalReadable Then
Log ("File.ExternalReadable")
Else
Log ("Not File.ExternalReadable")
End If
If File.ExternalWritable Then
Log ("File.ExternalWritable")
Else
Log ("Not File.ExternalWritable")
End If
Dim strSystemDirectory As String
strSystemDirectory = getSystemDirectory
Log ("strSystemDirectory = " & strSystemDirectory)
File.Copy(File.DirAssets,"ArmCurlWalk1.jpg", strSystemDirectory, "ArmCurlWalk1.jpg")
If File.Exists(strSystemDirectory, "ArmCurlWalk1.jpg") Then
Log ("Copied File " & strSystemDirectory & "/ArmCurlWalk1.jpg")
Else
Log ("Failed to copy File " & strSystemDirectory & "/ArmCurlWalk1.jpg")
End If
' from https://www.b4x.com/android/forum/threads/how-to-ext-sd-card-write-on-android-4-4.42177/#post-255351
Log("Using getExternalFilesDirs")
Dim paths() As Object = GetContext.RunMethod("getExternalFilesDirs", Array(Null))
For Each p As Object In paths
Log(p)
Next
Activity.Finish
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub getSystemDirectory As String
Dim systemDirectory As String
If File.ExternalWritable And File.ExternalReadable Then
systemDirectory = File.DirDefaultExternal
Log ("getSystemDirectory using File.DirDefaultExternal for systemDirectory = " & systemDirectory)
Else
' have to use internal folder
systemDirectory = File.DirInternal
Log ("getSystemDirectory using File.DirInternal for systemDirectory = " & systemDirectory)
End If
Return systemDirectory
End Sub
Sub GetContext As JavaObject
Return GetBA.GetField("context")
End Sub
Sub GetBA As JavaObject
Dim jo As JavaObject
Dim cls As String = Me
cls = cls.SubString("class ".Length)
jo.InitializeStatic(cls)
Return jo.GetFieldJO("processBA")
End Sub