Sub DevicePaths
Dim lp As List : Dim mInternal, mSDCard1, mSDCard2, ChkVal, CK As String
lp = File.ReadList("/system/etc/", "vold.fstab")
For i = 0 To lp.Size -1
ChkVal = lp.get(i)
If ChkVal.ToLowerCase.StartsWith("dev_mount") Then
CK = ChkVal.SubString2(ChkVal.IndexOf("/mn"), ChkVal.Length -1)
If ChkVal.Trim.ToLowerCase.EndsWith("mmc0") Then mInternal = CK.SubString2(0, CK.IndexOf(" "))
If ChkVal.Trim.ToLowerCase.EndsWith("mmc1") Then mSDCard1 = CK.SubString2(0, CK.IndexOf(" "))
If ChkVal.Trim.ToLowerCase.EndsWith("mmc2") Then mSDCard2 = CK.SubString2(0, CK.IndexOf(" "))
End If
Next
Msgbox("Internal = " & mInternal & CRLF & "SDCard 1 = " & mSDCard1 & CRLF & "SDCard 2 = " & mSDCard2, "")
End Sub