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

名前

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

本文 たえです。 0123さんありがとうございます。 コードにコメントしてみました。 ご教授宜しくお願いします。 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