Определить размер очищенных файлов и папок

'Очистка Mozilla Firefox
            On Error Resume Next
            If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Mozilla\Firefox\Profiles") = True Then
                Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Mozilla\Firefox\Profiles", True)
                My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Mozilla\Firefox\Profiles")
            End If
 
            'Очистка Opera Stable
            On Error Resume Next
            If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Opera Software\Opera Stable\Cache") = True Then
                Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Opera Software\Opera Stable\Cache", True)
                My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Opera Software\Opera Stable\Cache")
            End If