Sub DevicePaths
Dim lp, dPaths As List : Dim ChkVal, dp = File.DirRootExternal As String : dPaths.Initialize
lp = File.ReadList("/system/etc/", "vold.fstab")
For i = 0 To lp.Size -1
ChkVal = lp.get(i) : ChkVal = ChkVal.Replace(":", " ")
If ChkVal.ToLowerCase.StartsWith("dev_mount") Then
dPaths.Add(SGW(ChkVal, 2) & ", " & SGW(ChkVal, 3))
EndIf
Next
InputList(dPaths, "Device Mounting Paths", -1)
End Sub
Sub SGW(CStr As String, GE As Int) As String
Dim t As List : Dim rs, sd As String : sd = " "
t = Regex.Split(sd, CStr)
rs = t.Get(GE-1)
Return rs
End Sub