[hamada558]

هاد الكود بيقيس مساحة جميع المجلدات يلي بداخل المجلد المحدد

كود :

   Shared Function GetDirectorySize(ByVal directory As String) As Long
       Dim TotalSize As Long = 0
       For Each s As String In IO.Directory.GetFiles(directory, "*.*", IO.SearchOption.AllDirectories)
           TotalSize += New IO.FileInfo(s).Length
       Next
       Return TotalSize
   End Function

---

وممكن بسطر مختصر

كود :

Dim directory As String = "C:\folder"
Dim directorySize As Long = (From s In IO.Directory.GetFiles(directory, "*.*", IO.SearchOption.AllDirectories) Select New IO.FileInfo(s).Length).Sum

أو

كود :

Dim directory As String = "C:\folder"
Dim directorySize As Long = IO.Directory.GetFiles(directory, "*.*", IO.SearchOption.AllDirectories).Sum(Function(s) New IO.FileInfo(s).Length)