Получить список папок с их размером

Dim fullfilesPath() As String = Directory.GetFiles("F:\1\_1\", "*.*", SearchOption.AllDirectories)
        Dim Size As Long = 0
        For Each item In fullfilesPath
            Dim fi As FileInfo = New FileInfo(item)
            Size = (Size + fi.Length)
        Next
        MsgBox(Size \ 1024 \ 1024 & " МБ (" & Size & "байт)")

  For Each Dir As String In System.IO.Directory.GetDirectories("F:\1\")
            Dim dirInfo As New System.IO.DirectoryInfo(Dir)
            ListBox1.Items.Add(dirInfo.Name)
        Next

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ' размер папки
        Dim fullfilesPath() As String = Directory.GetFiles("F:\1\", "*.*", SearchOption.AllDirectories)
        Dim Size As Long = 0
        For Each item In fullfilesPath
            Dim fi As FileInfo = New FileInfo(item)
            Size = (Size + fi.Length)
        Next
        MsgBox(Size \ 1024 \ 1024 & " МБ (" & Size & "байт)")
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        For Each Dir As String In System.IO.Directory.GetDirectories("F:\1\") ' все папки в каталоге
            Dim dirInfo As New System.IO.DirectoryInfo(Dir)
            ListBox1.Items.Add(dirInfo.Name)
        Next
    End Sub

Private Sub InListBox()
For Each Dir As String In System.IO.Directory.GetDirectories("F:\1\") ' все папки в каталоге
            Dim dirInfo As New System.IO.DirectoryInfo(Dir)
            ListBox1.Items.Add(dirInfo.Name)
        Next
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ' размер папки
        Dim fullfilesPath() As String = Directory.GetFiles("F:\1\", "*.*", SearchOption.AllDirectories)
        Dim Size As Long = 0
        For Each item In fullfilesPath
            Dim fi As FileInfo = New FileInfo(item)
            Size = (Size + fi.Length)
        Next
        MsgBox(Size \ 1024 \ 1024 & " МБ (" & Size & "байт)")
      InListBox()
 End Sub

Private Sub LenghtFile()
  Dim fullfilesPath() As String = Directory.GetFiles("F:\1\", "*.*", SearchOption.AllDirectories)
        Dim Size As Long = 0
        For Each item In fullfilesPath
            Dim fi As FileInfo = New FileInfo(item)
            Size = (Size + fi.Length)
        Next
        MsgBox(Size \ 1024 \ 1024 & " МБ (" & Size & "байт)")
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
  LenghtFile()
  InListBox()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Dir As String In System.IO.Directory.GetDirectories("F:\1")
            Dim dirInfo As New System.IO.DirectoryInfo(Dir)
            Dim Size As Long = 0
            For Each file In dirInfo.GetFiles("*", IO.SearchOption.AllDirectories)
                Size += file.Length
            Next
            Dim itm As New ListViewItem({dirInfo.Name, Size \ 1024 \ 1024 & " МБ (" & Size & "байт)"})
            ListView1.Items.Add(itm)
        Next
        ListView1.Sorting = SortOrder.Descending
    End Sub