مشکل کپی فایل به روت اکسترنال

[ghost94 151]

سلام وقت همگی بخیر 

من یه برنامه ای دارم باید یک فایل از DirAsset که خودم ساختمش بیاد داخل RootExternal کاربر از این کد استفاده میکنم و متاسفانه کار نمیکنه اگر ممکنه بنده رو راهنمایی بفرمایید :

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
	If Result = False Then
		ToastMessageShow("این دسترسی برای کارکرد برنامه الزامی هست(برای ذخیره اطلاعات برنامه و تبدیل به نسخه حرفه ای) گزینه Allow یا مجاز رو بزنید....",True)
		Sleep(2000)
		ToastMessageShow("این دسترسی برای کارکرد برنامه الزامی هست(برای ذخیره اطلاعات برنامه و تبدیل به نسخه حرفه ای) گزینه Allow یا مجاز رو بزنید....",True)


		rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
		rp.CheckAndRequest(rp.PERMISSION_READ_EXTERNAL_STORAGE)
	End If
	If Result = True Then
		If File.Exists(File.DirRootExternal,"nn.txt") = False Then
			File.Copy(File.DirAssets,"nn.txt",File.DirRootExternal,"nn.txt")
		End If
		
	End If

End Sub

 

[امیرحسین قاسمی 610]