Sub leertarjetainfo
folder=""
Dim dwname As String = ""
paths = storage.Initialize
For i = 0 To paths.Size-1
Log(paths.GetKeyAt(i)&"="&paths.GetValueAt(i))
If paths.GetKeyAt(i)="DIRECTORY_DOWNLOADS" Then
dwname=paths.GetValueAt(i)
Log(dwname)
End If
Next
Dim de As String = File.DirRootExternal
Log ("DirRootExternal = "&de)
Dim mtc As Matcher = Regex.Matcher("(/|\\)[^(/|\\)]*(/|\\)",de)
extsdcard = 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
If storage.isExternalStorageRemovable(mnt&f) Then
Log ("Device = "& f&":"&mnt&f&" is removable")
If File.ListFiles(mnt&f).IsInitialized Then
Log("probably ExtSDCard: "&mnt&f)
extsdcard = mnt&f
Else
'Log("Problem reading "&mnt&f)
End If
Else
Log ("Device = "& f&":"&mnt&f&" is NOT removable")
End If
Next
End If
Log("extsdcard probably="&extsdcard)
folder=extsdcard 'revert
For Each f As String In File.ListFiles(extsdcard)
Log(">"&f)
If f=dwname Then
dwf = True
End If
Next
Log(extsdcard) ' this is the folder!!!!
If extsdcard.Contains("Usb") Then
usbready=True
Else
usbready=False
' if dwf exists revert to local folder
If dwf Then
extsdcard=folder & "/" & dwname
Log(extsdcard)
End If
End If
End Sub