(09-09-23, 11:05 PM)justforit كتب :

PHP كود :

Imports System.IO
Public Class Form1
    Function GetDirectorySize(ByVal DirPath As String) As Long
        Dim DirSize As Long
        Dim Dir As DirectoryInfo = New DirectoryInfo(DirPath)
        Dim ChildFile As FileInfo
        For Each ChildFile In Dir.GetFiles()
            DirSize += ChildFile.Length
        Next
        Dim SubDir As DirectoryInfo
        For Each SubDir In Dir.GetDirectories()
            DirSize += GetDirectorySize(SubDir.FullName)
        Next
        Return DirSize
    End Function
    Private Sub gmy(dpath As String)
        Dim s As Long = GetDirectorySize(dpath)
        ListBox1.Invoke(Sub() ListBox1.Items.Add(dpath & " " & s & " byte"))
    End Sub
    Private Sub btnGetFolderssize_Click(sender As Object, e As EventArgs) Handles btnGetFolderssize.Click
        Dim fbd As New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            ListBox1.Items.Clear()
            Dim th As New Threading.Thread(AddressOf gmy)
            If th.IsAlive = False Then
                th.Start(fbd.SelectedPath)
            End If
        End If
    End Sub
End Class 


عدل على الكود ليناسب المطلوب.

(09-09-23, 11:48 PM)أبو خالد الشكري كتب : رائع
ولكن أظن أنه يكون أفضل لو تظهر النتيجة بالجيجا بايت أو بالميجابايت بدلا من البايت !