[hitman48]

او تفضل هذا يعطيك الحجم الذي تريد

تحتتاج لثلاثة من الليبل lebal1 label2 label3

كود :

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As New FolderBrowserDialog
        If i.ShowDialog Then
            TextBox1.Text = i.SelectedPath ' هنا لاستعارض الملف الذي تود اظهاره
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dInfo As New DirectoryInfo(TextBox1.Text)
        ' set bool parameter to false if you
        ' do not want to include subdirectories.
        Dim sizeOfDir As Long = DirectorySize(dInfo, True)

        Label1.Text = ("Directory size in Bytes : " & "{0:N0} Bytes" & sizeOfDir)
        Label2.Text = ("Directory size in KB : " & "{0:N2} KB" & (CDbl(sizeOfDir)) / 1024)
        Label3.Text = ("Directory size in MB : " & "{0:N2} MB" & (CDbl(sizeOfDir)) / (1024 * 1024))

    End Sub
    Private Function DirectorySize(ByVal dInfo As DirectoryInfo, _
   ByVal includeSubDir As Boolean) As Long
        ' Enumerate all the files
        Dim totalSize As Long = dInfo.EnumerateFiles() _
          .Sum(Function(file) file.Length)

        ' If Subdirectories are to be included
        If includeSubDir Then
            ' Enumerate all sub-directories
            totalSize += dInfo.EnumerateDirectories() _
             .Sum(Function(dir) DirectorySize(dir, True))
        End If
        Return totalSize
    End Function
End Class

احذف lebal الذي تريد