سلام لطف میکنین پاسخ می دید من تو گوشی تست کردم و با همین مشکل مواجه شدم و سورس رو هم همون جوری که بود باز کردم بدون هیچ گونه تغییراتی
اینم کد هام
#Region Project Attributes
#ApplicationLabel: MaterialFilePicker
#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
End Sub
#AdditionalRes: C:\Users\M\Desktop\MaterialFilePicker\res
#AdditionalRes: C:\Users\M\Desktop\appcompat\b4a_appcompat, de.amberhome.objects.appcompat
#AdditionalRes: C:\Users\M\Desktop\appcompat\support\v7\appcompat\res, android.support.v7.appcompat
#AdditionalRes: C:\Users\M\Desktop\appcompat\support\v7\recyclerview\res, android.support.v7.recyclerview
#Extends: android.support.v7.app.AppCompatActivity
Sub Activity_Create(FirstTime As Boolean)
' MaterialFilePicker
' یکسری دسترسی و کدهای مورد نیاز کتابخونه در قسمت منیفست میباشد
' محتویات پوشه رس رو ویرایش نکنید و همیشه همراه پروژه استفاده نمایید بقیه آدرس دهی ها هم طبق مسیر خودتون ویرایش کنید
Dim f As MaterialFilePicker
f.Initialize("f")
' اگه خواستین چند بار از کتابخونه استفاده کنید به هر کدوم یک شماره اختصاص بدین
' f.withRequestCode(1)
' هیتلر کردن بر اساس پسوند و اسم فایل برای هیتلر کردن فایل اسم فایل رو وارد کنید و برای هیتلر کردن پسوند فایل رو بعد از .*. قرار بدید
' f.withFilter(".*.mp3")
' قرار بدید true اگر خواستین بر اساس اسم فایل هیتلر کنید این متد رو برابر
' f.withFilterDirectories(False)
' برای نمایش فایل های پنهان
' f.withHiddenFiles(False)
' شروع نمایش کتابخونه
f.start
End Sub
Sub f_onActivityResult(requestCode As Int,resultCode As Int,intent As Intent)
' نتیجه برگشتی انتخاب فایل در این ساب
' استفاده کنید تا برنامه خطا نده Try Catch سعی کنید داخل
Try
Log(requestCode) ' همون شماره ای که اون بالا دادید
' اگه برابر با -1 بود یعنی انتخاب موفقیت آمیز بوده است
Log(resultCode) 'resultCode = -1 ==> RESULT_OK
' و دیگه هر کاری خواستین با فایل انجام بدید result_file_path اینتنت برگشتی حاوی مسیر فایل انتخاب شده گرفتن مسیر با کلید
Log(intent.GetExtra("result_file_path"))
Catch
Log(LastException)
End Try
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub