[sooriaty03]

MAZEN كتب :مشكور اخي الفاضل الكود شغال

مفيش طريقة اجيب بيها مساحة كل فولدر داخل الدرايف

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم

كود :

Private Function GetSize(ByVal DirectorySize As Double) As String
        Dim Result As String = ""
        Select Case DirectorySize
            Case Is <= 1024
                Return DirectorySize & " Byte"
            Case Is <= 1024 ^ 2
                Result = (DirectorySize / 1024).ToString
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Kb"
            Case Is <= 1024 ^ 3
                Result = (DirectorySize / (1024 ^ 2)).ToString
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Mb"
            Case Is > 1024 ^ 3
                Result = DirectorySize / (1024 ^ 3)
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Gb"
        End Select
        Return ""
    End Function

بالتوفيق