フォルダのサイズを取得するには、以下のようにします。
フォルダサイズを取得するメソッド
''' <summary>
''' フォルダサイズを取得する
''' </summary>
''' <param name="folder">対象フォルダ</param>
''' <returns>フォルダサイズ（バイト）</returns>
''' <remarks></remarks>
Private Shared Function GetFolderSize(ByVal folder As DirectoryInfo) As Long
Dim size As Long = 0
'フォルダ内のファイルのサイズをカウント
For Each file As FileInfo In folder.GetFiles
size += file.Length
Next
'サブフォルダで再帰処理
For Each fld As DirectoryInfo In folder.GetDirectories
size += GetFolderSize(fld)
Next
Return size
End Function