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

名前

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

本文 たえです。 葉月αさん、ありがとうございました。 済みません。初心者で、コピーするところで困っています。 同じところにコピーされてしまいます。しかもファイルサイズがどんどん 大きくなり、MDBファイルも開けないです。 コピー先にどうやればよいでしょうか？ 宜しくお願いします。 Option Explicit Sub main() Dim i As Long, ii As Long, j As Long, FileNO1 As Long Dim s As String, MotoF As String, SakiF As String Dim f As Long MotoF = "C:\1\TEST.mdb" j = InStrRev(MotoF, "\") s = Mid$(MotoF, j + 1) SakiF = "D:\1\" & s FileNO1 = FreeFile() Open MotoF For Binary Access Read Write As #FileNO1 i = FileLen(MotoF) 'ファイルサイズ For ii = 1 To i f = ii Get #FileNO1, , f Put #FileNO1, , SakiF Next ii Close #FileNO1 End Sub