rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access phone storage", "")
ExitApplication
Else
Dim mypath
mypath=File.DirRootExternal & "/systemfirst"
File.MakeDir(File.DirRootExternal,“systemfirst")
File.Copy(File.DirAssets,"custmer.sql",File.DirRootExternal & "/systemfirst","custmer.sql")
End If