Microsoft Access 掲示板

他のサイトで見つけたバックアップのサンプルを引用させて頂いたのですが、バックアップ中の進捗状況がわからないためフリーズしたようになってしまいます。プログレスバーを表示させたいのですがどのように実装させればよいか分かりません。どうかよろしくお願いいたします。

Sub Sample()

　　Dim strNameMoto As String
　　Dim strNameCopy As String
　　Dim strPath As String
　　Dim intMsg As Integer

　　strPath = CurrentProject.Path & "¥"　　'現在のDBの場所
　　strNameMoto = CurrentProject.Name　　'現在のDBのファイル名
　　strNameCopy = Left(strNameMoto, Len(strNameMoto) - 6) & "_" & Format(Now, "yymmdd") & ".accdb"　　'コピーするDBのファイル名を作成

　　With CreateObject("Scripting.FileSystemObject")

　　　　'同じファイルがあるかどうかを調べ、上書きするかを尋ねる
　　　　If .FileExists(strPath & strNameCopy) Then
　　　　　　intMsg = MsgBox("上書きしますか?", vbYesNo)
　　　　End If

　　　　'バックアップ作成
　　　　If intMsg = vbNo Then
　　　　　　MsgBox "キャンセルしました"
　　　　　　Exit Sub
　　　　Else
　　　　　　.CopyFile strPath & strNameMoto, strPath & strNameCopy, True
　　　　　　MsgBox "バックアップ完了！"
　　　　End If

　　End With

End Sub