Dim lr_runtimepermission As RuntimePermissions
lr_runtimepermission.GetSafeDirDefaultExternal("")
If(File.Exists(File.DirDefaultExternal & "/Registration Details", "" )) = False Then
File.MakeDir(File.DirDefaultExternal, "Registration Details")
File.Copy(File.DirAssets,"registrationdetails.txt",File.DirDefaultExternal & "/Registration Details", "registrationdetails.txt")
File.WriteString(File.DirDefaultExternal, "/Registration Details/registrationdetails.txt", ls_jsonstr)
Else
File.Delete(File.DirDefaultExternal, "/Registration Details/registrationdetails.txt")
File.MakeDir(File.DirDefaultExternal, "Registration Details")
File.Copy(File.DirAssets,"registrationdetails.txt",File.DirDefaultExternal & "/Registration Details", "registrationdetails.txt")
File.WriteString(File.DirDefaultExternal, "/Registration Details/registrationdetails.txt", ls_jsonstr)
End If
dialog_progress.dismissWithAnimation
ToastMessageShow("Registered Successfully", True)