حذف نشدن در گالری گوشی

[hosseinkarimian 100]

با سلام کد زیر کارش اینکه دو دکمه داریم :

دکمه اول وقتی کلیک میشه دو تا عکس که در برنامه می باشند رو کپی در حافظه گوشی و بعد اون دوتا  عکس رو به گالری گوشی منتقل می کنه.

دکمه ی دوم کارش اینکه اون دوتا عکس رو که در حافظه گوشی کپی کرده بودیم رو حذف می کنه.

مشکل در حذف فایل ها است یعنی دکمه دوم:  مشکل اینجاست که این دو فایل در مدیریت فایل گوشی حذف میشه ولی در گالری گوشی این دو فایل در پوشه ab موجود هستند ولی اگر در گالری روی آن ها کلیک شد فایل رو نشون نمیده و یک صفحه سیاه میاد

من میخوام  از گالری گوشی اون دو فایل حذف بشه.

منظورم رو واضح تر توضیح میدم:

وقتی بر روی دکمه کپی کلیک می کنیم  تصاویر در گالری به صورت زیر می باشد:

 

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

 

 

کد:

 

#Region  Project Attributes 
	#ApplicationLabel:copydel
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals


End Sub

Sub Globals

	Private Button_copy As Button
	Private Button_delete As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub




Sub Button_copy_Click
	File.MakeDir(File.DirRootExternal,"ab")
	If File.Exists(File.DirRootExternal,"ab/a.png")=True Then File.Delete(File.DirRootExternal,"ab/a.png")
		If File.Exists(File.DirRootExternal,"ab/2.jpg")=True Then File.Delete(File.DirRootExternal,"ab/2.jpg")
	File.Copy(File.DirAssets,"a.png",File.DirRootExternal,"ab/a.png")
		File.Copy(File.DirAssets,"2.jpg",File.DirRootExternal,"ab/2.jpg")
		
		
		''''''''''''''''نمایش تصاویر در گالری گوشی{
		If File.Exists(File.DirRootExternal,"/"&"ab")=True Then
	
	Dim jh_get As Long
	

Dim list_1 As List
list_1.Initialize
list_1=File.ListFiles(File.Combine(File.DirRootExternal,"ab"))
For jh_get=0 To list_1.Size-1
Dim Phone As Phone
    If Phone.SdkVersion<19 Then
        Dim i As Intent
        i.Initialize("android.intent.action.MEDIA_MOUNTED", "file://" & File.Combine(File.DirRootExternal,"ab/"&list_1.Get(jh_get)))
        Phone.SendBroadcastIntent(i)
    Else
        Dim context As JavaObject
        context = context.InitializeStatic("anywheresoftware.b4a.BA").GetField("applicationContext")
        Dim paths() As String = Array As String(File.Combine(File.DirRootExternal,"ab/"&list_1.Get(jh_get))) 'files to scan
        Dim mediaScanner As JavaObject
        mediaScanner.InitializeStatic("android.media.MediaScannerConnection")
        mediaScanner.RunMethod("scanFile", Array As Object(context, paths, Null, Null))
    End If
	

Next

End If
		
		''''''''''''''''پایان}
		ToastMessageShow("کپی شد",True)
		
		
End Sub


Sub Button_delete_Click
	If File.Exists(File.DirRootExternal,"ab/a.png")=True Then File.Delete(File.DirRootExternal,"ab/a.png")
		If File.Exists(File.DirRootExternal,"ab/2.jpg")=True Then File.Delete(File.DirRootExternal,"ab/2.jpg")
		
		File.Delete(File.DirRootExternal,"ab")
		
		
			ToastMessageShow("حذف شد",True)
End Sub

 

 

 

 

[reza sabouri 444]

دوست عزیز چرا انقدر اسپم میدین ؟

لطفا منتظر باشین تا به پاسختون برسین ، با این کارتون فک کنم به جواب که نمیرسید که هیچ ، بدتر هم میشه

[hosseinkarimian 100]

در 49 دقیقه قبل، رضا صبوری گفته است :

دوست عزیز چرا انقدر اسپم میدین ؟

لطفا منتظر باشین تا به پاسختون برسین ، با این کارتون فک کنم به جواب که نمیرسید که هیچ ، بدتر هم میشه

یکم عجله داشتم مگرنه اسپم نمیدادم.