|
こんばんは、りんさん。
りんさんから教えていただいたファイルのコピー部ですが
(実際は今更のFDからHDDへのコピーです ^^;)
処理中作業が進んでいるのかどうか分からないため
コピー進捗状況をステータスバーに”何%処理中です”や
できれば■□□□□□□で進捗状況を表示させたいのです。
自分なりに色々調べファイルサイズを取得するマクロは理解できました。
Sub Size()
Dim Path As String
Dim Size As Long
Path = " " ’←コピー元のパスを入力
Size = FileLen(Path)
MsgBox Size ’←とりあえずMsgボックスで結果表示しています
End Sub
これでコピー元(FD)のファイルの大きさ、
コピー先のファイルの大きさを取得してステータスバーに、
Application.StatusBar =
を利用して、(コピー先/コピー元)×100
と計算してあげれば%表示できるのでは??
しかしリアルタイムで更新しなければならないので
そこをどうすればよいのか分かりません。
もし可能であればこの辺りも
ご教授いただければ非常に助かります。
|
|