کتابخانه کاربردی MSdCardUtils(انجام اعمال کپی حذف و ... بر روی مموری کارد)

[mehdi29665 4]

تیکه کدی که این پنجره رو نمایش میده رو گیر آوردم و اول برنامه گذاشتم

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

در 4 دقیقه قبل، mehdi29665 گفته است :

j1

android 5.1

 

در 2 دقیقه قبل، محمدرضا شاهپیری گفته است :

برندش؟

سامسونگ

[محمدرضا شاهپیری 5,494]

در 14 دقیقه قبل، mehdi29665 گفته است :

تیکه کدی که این پنجره رو نمایش میده رو گیر آوردم و اول برنامه گذاشتم

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

 

سامسونگ

کد رو بزارید ببینم چیه تو اندروید 5 من ندیدم تا حالا درخواست دسترسی

[mehdi29665 4]

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #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
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private Ion As Object
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    Dim i As Intent
    i.Initialize("android.intent.action.OPEN_DOCUMENT_TREE", "")
    StartActivityForResult(i)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

'#if Java
'public void onActivityResult(int requestCode, int resultCode, Intent resultData) {
'    if (resultCode == RESULT_OK) {
'        Uri treeUri = resultData.getData();
'        DocumentFile pickedDir = DocumentFile.fromTreeUri(this, treeUri);
'
'        // List all existing files inside picked directory
'        for (DocumentFile file : pickedDir.listFiles()) {
'            Log.d(TAG, "Found file " + file.getName() + " with size " + file.length());
'        }
'    }
'}
'
'#End If

Sub StartActivityForResult(i As Intent)
    Dim jo As JavaObject = GetBA
    Ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
    jo.RunMethod("startActivityForResult", Array As Object(Ion, i))
End Sub

Sub GetBA As Object
    Dim jo As JavaObject
    Dim cls As String = Me
    cls = cls.SubString("class ".Length)
    jo.InitializeStatic(cls)
    Return jo.GetField("processBA")
End Sub

Sub ion_Event (MethodName As String, Args() As Object) As Object
    If Args(0) = -1 Then 'resultCode = RESULT_OK
        Dim i As Intent = Args(1)
        Dim TreeDirectory As String = i.GetData
        HandleTreeDirectoryString(TreeDirectory)
        Log(TreeDirectory)
    Else
        Log(Args(0))
    End If
    Return Null
End Sub

Sub HandleTreeDirectoryString(Tree As String)
    Dim StoragePath As String = Tree.SubString2(0,Tree.IndexOf("%3A"))
    StoragePath = StoragePath.Replace("content://com.android.externalstorage.documents/tree","") & "/"
    Dim RealPath As String = Tree.SubString2(Tree.IndexOf("%3A"), Tree.Length)
    RealPath = RealPath.Replace("%3A", "") 'StartSlashStorage
    RealPath = RealPath.Replace("%2F","/") 'NormalSlash
    Dim FullPath As String = "/storage" & StoragePath & RealPath
    ToastMessageShow(FullPath, True)
    Log(FullPath)
End Sub

 

[mehdi29665 4]

https://www.b4x.com/android/forum/attachments/sdcardv1-zip.52276/

[mehdi29665 4]

یه سری هم به این پیج بزنید لطفا

SD Card on Android 5.0 and Later - MetaCtrl

[mehdi29665 4]

شرمنده نمیدونم چجوری باید کد رو اینجا بزارم تا قالب نوشتاری که داره بهم نخوره

[محمدرضا شاهپیری 5,494]

طبق تصویر زیر رو دکمه ای که دورش خط کشیدم بزنید و کدهاتونو داخلش قرار بدید

[محمدرضا شاهپیری 5,494]

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

https://www.b4x.com/android/forum/attachments/sdcardv1-zip.52276/

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

[mehdi29665 4]

نقل قول

/storage/35a5-14ea/

 

[محمدرضا شاهپیری 5,494]

ظاهرا آدرس مموری کاردتون اینه. یه فایل توی این مسیر بسازید ببینید درست میشه یا نه. با دستور زیر

File.MakeDir("/storage/35a5-14ea/","foldertest")

البته اون اسلش آخرشو مطمئن نیستم باید باشه یانه. اگه نشد اسلش رو حذف کنید و دوباره تست کنید

[glaxi_x 13]

برای من اصلا کار نمیکنه

[glaxi_x 13]

در در 1396/08/08, 11:50:59، mehdi29665 گفته است :

 

 

در در 1396/08/08, 12:27:22، محمدرضا شاهپیری گفته است :

ظاهرا آدرس مموری کاردتون اینه. یه فایل توی این مسیر بسازید ببینید درست میشه یا نه. با دستور زیر

File.MakeDir("/storage/35a5-14ea/","foldertest")

البته اون اسلش آخرشو مطمئن نیستم باید باشه یانه. اگه نشد اسلش رو حذف کنید و دوباره تست کنید

مال من 5663-1519 میگیره نمیزاره نه کپی کنم نه فولدر بسازم و حذف و...... فکر کنم مسیری که توی کتابخانه اس برداری و ما خودمون به اینشیوه مسیر کارت بگیریم حل بشه

[glaxi_x 13]

کسی نیست جواب بده 

[glaxi_x 13]

Sub Activity_Create(FirstTime As Boolean)
	

	Dim i As Intent
	i.Initialize("android.intent.action.OPEN_DOCUMENT_TREE", "")
	Log(i)
end sub
Sub StartActivityForResult(i As Intent)
	Dim jo As JavaObject = GetBA
	Ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "Android 6", Null)
	
	jo.RunMethod("startActivityForResult", Array As Object(Ion, i))
End Sub



Sub ion_Event (MethodName As String, Args() As Object) As Object
	If Args(0) = -1 Then 'resultCode = RESULT_OK
		Dim i As Intent = Args(1)
		Dim TreeDirectory As String = i.GetData
		HandleTreeDirectoryString(TreeDirectory)
		Log(TreeDirectory)
	
	
	Else
		Log(Args(0))
	End If
	Return Null
End Sub

Sub HandleTreeDirectoryString(Tree As String)
	Dim StoragePath As String = Tree.SubString2(0,Tree.IndexOf("%3A"))
	StoragePath = StoragePath.Replace("content://com.android.externalstorage.documents/tree","") & "/"
	Dim RealPath As String = Tree.SubString2(Tree.IndexOf("%3A"), Tree.Length)
	RealPath = RealPath.Replace("%3A", "") 'StartSlashStorage
	RealPath = RealPath.Replace("%2F","/") 'NormalSlash
	Dim FullPath As String = "/storage" & StoragePath & RealPath '
	ToastMessageShow(FullPath, True)
	Log(FullPath)
	dire=FullPath
	

End Sub

برای بدست آوردن مسیر sd card