كود لحساب المدة الزمنية لنسخ ملفات كبيرة

السلام عليكم ورحمة الله وبركاته

هذا الكود لنسخ مجلد يحتوي على مجلدات وملفات

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            My.Computer.FileSystem.CopyDirectory("C:\Satellite", "f:\Satellite", True)
            MsgBox("done")
        Catch ex As Exception
            MsgBox("err")
        End Try
    End Sub
End Class

سؤاللي اريد تعديل بسيط في هذا الكود ليحسب لي المدة الزمنية التي سوف يحتاجها لنسخ الملفات ب Timer أو Progressbar

مع شكري للجميع