ایجاد فایل متنی در حافظه گوشی

[User 97]

سلام دوستان

اگر امکانش هست حتما در این مسیله راهنماییم کنید

قبلا اموزش همچین چیزی رو جایی دیده بودم ولی متاسفانه شیوه نگارش صحیحش رو فراموش کردم

 

میخوام بگم برنامه که باز شد بیاد چک کنه ببینه توی پوشه ی مثلا X ایا فایل یادداشتی با نام Y وجود داره یا نه

اگر وجود داشت که هیچ

اگر نداشت فایل یادداشت Y رو تو پوشه X ایجاد کنه

و طبیعتا برای این کار نیاز به مجوز دسترسی به حافظه کاربر هستش

ممنون میشم راهنماییم کنید

 

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

در 3 ساعت قبل، Soheil_Miresmaili گفته است :

سلام دوستان

اگر امکانش هست حتما در این مسیله راهنماییم کنید

قبلا اموزش همچین چیزی رو جایی دیده بودم ولی متاسفانه شیوه نگارش صحیحش رو فراموش کردم

 

میخوام بگم برنامه که باز شد بیاد چک کنه ببینه توی پوشه ی مثلا X ایا فایل یادداشتی با نام Y وجود داره یا نه

اگر وجود داشت که هیچ

اگر نداشت فایل یادداشت Y رو تو پوشه X ایجاد کنه

و طبیعتا برای این کار نیاز به مجوز دسترسی به حافظه کاربر هستش

ممنون میشم راهنماییم کنید

 

سلام،

نمونه کدش رو براتون نوشتم.

سعی کنید کپی پیست نکنید. سعی کنید خودتون بنویسید تا دفعه دیگه لازم تون شد لازم نباشه برگردید اینجا!

Sub Activity_Create(FirstTime As Boolean)
    'اینجا هرکدی قرار بگیره به محض اجرای اکتویتی، اجرا میشه
	'اینجا اول از همه دسترسی به حافظه رو چک می کنیم!
    Dim rp As RuntimePermissions
	rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
	
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
    'نتیجه پرمیشن اینجا فرستاده میشه
	If Permission = rp.PERMISSION_WRITE_EXTERNAL_STORAGE Then
		
		If Result=True Then'اگر کاربر تایید کرد
			Toastmessageshow("اجازه دسترسی به حافظه صادر شد",true)
            'این پایین دقیقا چیزی که میخواید اجرا میشه
            Dim root As String=File.DirRootExternal&"/x" 'مسیر فولدر رو توی یک استرینگ میریزیم
	    If File.Exists(root,"Y.txt")=False Then 'اگر در داخل پوشه مورد نظر فایل نبود.(فایل Y)
		    File.WriteString(root,"Y.txt","") 'بیا توی همون پوشه و همون مسیر یک فایل ایجاد کن
	    End If


		Else
        'اگه کاربر دسترسی رو رد کرد
			Msgbox("این برنامه جهت کارکرد صحیح به مجوز حافظه نیاز دارد.","")
			Activity.Finish
		End If
		
	End If
End Sub

موفق باشید!

[User 97]

در ۱ ساعت قبل، امیرحسین قاسمی گفته است :

سلام،

نمونه کدش رو براتون نوشتم.

سعی کنید کپی پیست نکنید. سعی کنید خودتون بنویسید تا دفعه دیگه لازم تون شد لازم نباشه برگردید اینجا!

Sub Activity_Create(FirstTime As Boolean)
    'اینجا هرکدی قرار بگیره به محض اجرای اکتویتی، اجرا میشه
	'اینجا اول از همه دسترسی به حافظه رو چک می کنیم!
    Dim rp As RuntimePermissions
	rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
	
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
    'نتیجه پرمیشن اینجا فرستاده میشه
	If Permission = rp.PERMISSION_WRITE_EXTERNAL_STORAGE Then
		
		If Result=True Then'اگر کاربر تایید کرد
			Toastmessageshow("اجازه دسترسی به حافظه صادر شد",true)
            'این پایین دقیقا چیزی که میخواید اجرا میشه
            Dim root As String=File.DirRootExternal&"/x" 'مسر فولدر رو توی یک استرینگ میریزیم
	    If File.Exists(root,"Y.txt")=False Then 'اگر در داخل پوشه مورد نظر فایل نبود.(فایل Y)
		    File.WriteString(root,"Y.txt","") 'بیا توی همون پوشه و همون مسیر یک فایل ایجاد کن
	    End If


		Else
        'اگه کاربر دسترسی رو رد کرد
			Msgbox("این برنامه جهت کارکرد صحیح به مجوز حافظه نیاز دارد.","")
			Activity.Finish
		End If
		
	End If
End Sub

موفق باشید!

شما چقدر خوبین آقای قاسمی خیلی ممنون