Sub Globals
Dim storage As env
Dim sdCard As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
storage.Initialize
sdCard=detectCardExt
Msgbox(sdCard,"sdCard")
ExitApplication
End Sub
Sub detectCardExt As String
Dim de As String = File.DirRootExternal
Dim mtc As Matcher = Regex.Matcher("(/|\\)[^(/|\\)]*(/|\\)",de)
If mtc.Find = True Then
Dim mnt As String = mtc.Group(0)
Dim dirs As List
dirs.Initialize
dirs=File.ListFiles(mnt)
For Each f As String In dirs
If storage.isExternalStorageRemovable(mnt&f) Then
Return f
End If
Next
End If
End Sub