Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30140 / 76732 ←次へ | 前へ→

【51862】コピーの進捗状況
質問  ロン  - 07/10/8(月) 17:15 -

引用なし
パスワード
   こんばんは、りんさん。

りんさんから教えていただいたファイルのコピー部ですが
(実際は今更の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
と計算してあげれば%表示できるのでは??
しかしリアルタイムで更新しなければならないので
そこをどうすればよいのか分かりません。
もし可能であればこの辺りも
ご教授いただければ非常に助かります。
1 hits

【51841】ファイルの合成 ロン 07/10/7(日) 10:47 質問
【51842】Re:ファイルの合成 Hirofumi 07/10/7(日) 12:03 回答
【51848】Re:ファイルの合成 Hirofumi 07/10/7(日) 13:13 回答
【51849】Re:ファイルの合成 ロン 07/10/7(日) 13:38 お礼
【51843】Re:ファイルの合成 りん 07/10/7(日) 12:27 回答
【51850】Re:ファイルの合成 ロン 07/10/7(日) 13:49 発言
【51851】Re:ファイルの合成 りん 07/10/7(日) 13:52 発言
【51852】Re:ファイルの合成 ロン 07/10/7(日) 13:59 発言
【51890】Re:ファイルの合成 ロン 07/10/9(火) 19:46 お礼
【51894】Re:ファイルの合成 りん 07/10/9(火) 20:48 発言
【51862】コピーの進捗状況 ロン 07/10/8(月) 17:15 質問

30140 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free