مشکل با Arialib

[amirs 2]

سلام دوستان ببینید من عکس رو تو پوشه گالری دخیره میکنم (اسکرین شات) اما تا گالری عکسو شناسایی کنه و به گالری اضافه بشه زمان میبره ، یکی از عزیزان گفت از Arialib استفاده کن ولی باز مشکلم حل نشد.

Sub Button11_Click
	Dim now As Long
	Dim dt As String
	DateTime.DateFormat = "yyMMddHHmmss"
	now = DateTime.now
	dt = DateTime.Date(now) 
	If File.Exists(File.DirRootExternal & "/ax/", "") = False Then
		File.MakeDir(File.DirRootExternal, "/ax/")	
End If
	shot.Initialize(dt ,File.DirRootExternal & "/ax/" , 100)
			shot.save(Panel2)
			ToastMessageShow(" تصویر ذخیره شد " , False)
			arialib.AddMediaToGallery(File.DirRootExternal & "/ax/" , dt)	
End Sub

 

[پژمان نیکروان 6,055]

سلام

بعد از ذخیره عکس باید sync بشه تا به گالری اضافه بشه. البته کتابخانه آریا لیب هم احتمالا همینکارو انجام میده. شاید شما آدرس رو دارید اشتباه میدید.

به هرحال ازاین کد استفاده کنید ببینید جواب میده یانه.(هرچند کدهای آریالیب هم احتمالا همینه)

	 Dim op As Intent
    op.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
"file://" & File.Combine(File.DirRootExternal&"/ax",dt))
    Dim pp As Phone
    pp.SendBroadcastIntent(op)