كيف أعرف حجم مجلد من الفيجول بيسك؟؟

استخدم الداله التاليه

    Public Function GetDirectorySize(ByVal DirPath As String) As ULong

        If DirPath.Length = 2 Or DirPath.Length = 3 Then
            Dim drv As New DriveInfo(DirPath)
            Return drv.TotalSize - drv.AvailableFreeSpace
        End If

        Dim files() As String = Directory.GetFiles(DirPath, "*.*", SearchOption.AllDirectories)

        Dim size As ULong = 0

        For i As Integer = 0 To files.Length - 1
            size += New FileInfo(files(i)).Length
        Next

        Erase files

        Return size

    End Function

قم بتمرير لها مسار المجلد او الدريف و ستعيد لك المساحه المستخدمه بالبايت، الداله السابقه توجد لها مشكله واحده فقط و هى عند وجود مجلد يوجد عليه permission لا تتيح الوصول لمحتوياته فى هذه الحاله الداله Directory.GetFiles سترمى استثناء من نوع UnauthorizedAccessException.

لتحويل المساحه لـ KB اقسم الرقم الناتج على 1024

لتحويل المساحه لـ MB اقسم الرقم الناتج على 1048576

لتحويل المساحه لـ GB اقسم الرقم الناتج على 1073741824

و الله ولى التوفيق

شكرا يا طيب

أعزك المولى وسدد خطاك