Hi everybody,
I have written this:
Code:
Public Sub getSDCardPath() As String
' Private rp As RuntimePermissions
Dim iMount, iCRLF, iSlash, iAuto As Int
Dim fstab As String = File.ReadString("/system/etc/", "vold.fstab")
Dim Mount As String
Dim exten As String=File.DirDefaultExternal
Dim ptr1 As Int=exten.IndexOf("Android")
If ptr1=0 Then
Msgbox ("Unknown directory:" & exten,"Error")
End If
Do While True
'get next line with mount point:
iMount =...
from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/2bstiBy
via IFTTT
Aucun commentaire:
Enregistrer un commentaire