Function GetFolderSize(ByVal Root As String) As Long
        GetSize(Root)
        Return si
    End Function
 
    Dim si As Long = 0
 
    Sub GetSize(ByVal path As String)
        Try
            Dim di As New IO.DirectoryInfo(path)
            For Each file As IO.FileInfo In di.GetFiles
                si += file.Length
            Next
            For Each dire As IO.DirectoryInfo In di.GetDirectories
                GetSize(dire.FullName)
            Next
        Catch ex As Exception
            'MessageBox.Show(ex.Message)
        End Try
    End Sub