vb.net コピーの進捗をプログレスバーで

質問

質問ばかりでもうしわけないのですが
タイトルにあるようにコピーの状況を
プログレスバーで表示できたらなと思い作成したのですが
うまく動きません。
プログレスバー自身単独では動くのですがコピーと合わせると
フリーズしてしまいます。
プログラミング経験と発想力が乏しいのでご教授いただけたら幸いです

Private Sub Bt_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_1.Click

Dim fname1 As String = "C:\フォルダ名A"
Dim fname2 As String = "C:\フォルダ名B"
Dim ber1 As Integer

If IO.Directory.Exists(fname1) = True Then
Me.Lb_1.Text = "テキスト文字"

For ber1 = 0 To 20
Me.ProgressBar1.Value = ber1

System.IO.File.Copy("コピー元テキストファイルA", "コピー先テキストファイルA", True)
My.Computer.FileSystem.CopyDirectory("コピー元フォルダA", "コピー先フォルダA", True)
My.Computer.FileSystem.CopyDirectory("コピー元フォルダB", "コピー先フォルダB", True)
Next ber1

If IO.Directory.Exists(fname2) = True Then
System.IO.File.Copy("コピー元ファイルB", "コピー先ファイルB", True)
End If

MessageBox.Show("終了報告テキスト", "タブ名")
' System.IO.Directory.Delete("コピー元", True)
Me.ProgressBar1.Value = 0
Application.Exit()

こんな感じで作成しております。
ファイル自身が１GBぐらいあるので
フリーズしていないかプログレスバーや％表示でしらせたいので
教えていただけると助かります。

よろしくお願いします。

回答No.1

mako_tyo · ベストアンサー

難しいですね・・・　私は、VBはできませんが読むならって程度ですが。。。

ファイルのコピーを行う処理が重たくて、進度を表示したいというのはわかります。
なぜループと質問者さんのソースでのコピーでは、プログレスバーの動きが違うかというと、ループでは100回転するとしたら100回同じ場所を通るので、何回通ったというのが分かるのですが、コピーだとコピーの処理で1回となります。なのでコピーの場合は、コピーが終了したらプログレスバーがすべて動きます。（説明へたでスミマセン）

そこで、調べたのですがマルチスレッドで処理を行うっていいみたいです。
リンク先で議論?されてるみたいなので参考程度にお願いします。

何もわからなくてすみません。。。　orz

参考URL：

http://homepage1.nifty.com/MADIA/vb/vb_bbs2/200506/200506_05060090.html

補足

回答ありがとうございます。
リンク先を読んだのですが
初心者の私にはさっぱりです・・・
PC自体は８割シングルですので作成するのは
時間がかかりそうですね・・・・

情報ありがとうございました。