Private rp As RuntimePermissions
Public Sub GetSDAppFolder As String
'get the application folder on the SD
'this will need to be altered as it currently is
'mainly applicable to my particular device (Samsung S10)
'------------------------------------------------------
Dim i As Int
Dim strDir As String
Dim strDir2 As String
For Each strDir As String In rp.GetAllSafeDirsExternal("")
If strDir.Length > 0 Then
i = i + 1
Log("GetSDAppFolder, strDir(" & i & "): " & strDir)
If i = 2 Then
strDir2 = strDir
End If
End If
Next
Return strDir2
End Sub