ファイルをコピーしているときのプログレスバーを出すには？ (ID:122598)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは、たえです。 いつもお世話になっています。 >・ファイルを読み込む時に使うバッファサイズとファイルサイズから、 > 何回読み書きすれば完了となるか算出しておく。 ここの部分で行き詰まってしまいまいました。バッファサイズは どのようにして求めたらよいでしょうか？ なぜOpen〜Closeして、コピーするのでしょうか？ 途中までやってみました。 ご指導願えたら幸いです。 Option Explicit Sub main() Dim i As Long, j As Long Dim s As String, MotoF As String, SakiF As String Dim f As String MotoF = "C:\1\TEST.mdb" j = InStrRev(MotoF, "\") s = Mid$(MotoF, j + 1) SakiF = "D:\1\" & s Open "C:\1\TEST.mdb" For Input As #1 Input #1, f i = FileLen(MotoF) 'ファイルサイズを求める FileCopy MotoF, SakiF Close #1 'Debug.Print f End Sub