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

[hosseinkarimian 100]

با سلام من با  کد زیر یک فایل با فرمت mp4 و یک فایل عکس رو که در پوشه ای می باشند حذف میکنم.

File.delete(file.DirRootExternal,"ab/1.mp4")

 File.delete(file.DirRootExternal,"ab/2.jpg")

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

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

 

[مهدی ایزدی 9,203]

سلام

گالری رو بعد از حذف فایل باز میکنید ؟

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

 

کلا کدهاتون رو بزارید ببینم چیکار کردید ؟

[hosseinkarimian 100]

در 1 ساعت قبل، مهدی ایزدی گفته است :

سلام

گالری رو بعد از حذف فایل باز میکنید ؟

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

 

کلا کدهاتون رو بزارید ببینم چیکار کردید ؟

#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_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

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

 

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

 

 

 

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

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