[محمد كريّم]

هذه طريقة بسيطة ولكنها ليست الأسرع

كود :

       Dim _fileSize As Long
       For Each _file As String In My.Computer.FileSystem.GetFiles("D:\YourFolder")
           Dim _fileInfo As New System.IO.FileInfo(_file)
           _fileSize += _fileInfo.Length
       Next
       TextBox1.Text = _fileSize.ToString() + " bytes"