Android Question Smartmedia Reader

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