Dim de As String = File.DirRootExternal
Log ("DirRootExternal = "&de)
Dim mtc As Matcher = Regex.Matcher("(/|\\)[^(/|\\)]*(/|\\)",de)
If mtc.Find = True Then
Dim mnt As String = mtc.Group(0)
Log ("mount point = "& mnt)
Dim dirs As List = File.ListFiles(mnt)
For Each f As String In dirs
Log ("Device = "& f)
Next
End If