Find Total, Used and Free Memory on SdCard

Sub CheckSDCard(type_ As String)
Dim p As Phone
Dim sb As StringBuilder
Dim splitLine() As String
Dim splitLine1() As String
Dim splitLine2() As String
Dim s1 As String

   ' Initialize stringbuilder
   sb.Initialize

   ' get memory info of sd card
   p.Shell("df", Array As String("sdcard"), sb, Null)  ' free space

   If p.SdkVersion <= 8 Then 
      Try 
         'split memory info lines
         splitLine=Regex.Split(",",sb.ToString)
         If type_="total" Then
            splitLine1=Regex.Split("K",splitLine(0))
            s1=splitline1(0)
            s1=s1.Replace("sdcard: ","")
            splitline1(0)=s1
            'Log(splitline1(0))
         Else If type_="used" Then
            splitLine1=Regex.Split("K",splitLine(1))
            'Log(splitline1(0))
         Else If type_="available" Then
            splitLine1=Regex.Split("K",splitLine(2))
            'Log(splitline1(0))
         End If
      Catch
         Msgbox(LastException,"FreeSdCard p.Shell SdkVer <= 8")
      End Try
      Return splitline1(0).Trim
   Else
      Try 
         'split memory info lines
         splitLine = Regex.Split("/t",sb.ToString)
         splitLine1 = Regex.Split("sdcard",splitLine(0))
         splitLine2 = Regex.Split("[ ]+",splitLine1(1).Trim)
         Select Case type_
            Case "total"
               Return splitLine2(0).Trim
            Case "used"
               Return splitLine2(1).Trim
            Case "available"
               Return splitLine2(2).Trim
            Case Else
               Return splitLine2(3).Trim
         End Select
      Catch
         Msgbox(LastException,"FreeSdCard p.Shell SdkVer > 8")
      End Try
   End If
End Sub

my lines of code etc.

[\Code]

Thanks again Erel:sign0188:

dim OS as OperatingSystem
OS.Initialize("OS")
Msgbox(OS.AvailableExternalMemorySize, "Available External Memory Size")
Msgbox(OS.AvailableInternalMemorySize, "Available Internal Memory Size")