Excel VBA質問箱 IV

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

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


93 / 74190 ←次へ | 前へ→

【79739】CopyFile
質問  VBP  - 18/3/28(水) 12:02 -

引用なし
パスワード
   デスクトップの111というフォルダの中にg1.txt、g2.txt、g3.txt、g4.txt、g5.txtがあります。
すべて隠しファイルです。
その5つのテキストファイルを以下にコピーします。

g1.txtをC:\test1\へコピー
g2.txtとg3.txtをC:\test2\へコピー
g4.txtとg5.txtをC:\test3\へコピー
コピー終了後、隠し属性を標準に変更。

'--------------------------------------------------------------------------
Call Fso.CopyFile(コピー元,C:\test1\)
Call Fso.CopyFile(コピー元,C:\test2\)
Call Fso.CopyFile(コピー元,C:\test3\)
Set Fob = Fso.GetFile(C:\test1\g1.txt)
Set Fob = Fso.GetFile(C:\test2\g2.txt, C:\test2\g3.txt)
Set Fob = Fso.GetFile(C:\test3\g4.txt, C:\test3\g5.txt)
Fob.Attributes = 0
MSG3 = MsgBox("完了しました!", vbOKOnly + vbInformation, "完了!")
'--------------------------------------------------------------------------

上記コードでコピーは完了するのですが、メッセージが3回出てきます。
これをすべてのコピーが完了後、1回だけメッセージを出すにはどうすればいいのでしょうか?

60 hits

【79739】CopyFile VBP 18/3/28(水) 12:02 質問[未読]
【79742】Re:CopyFile γ 18/3/28(水) 21:22 発言[未読]
【79745】Re:CopyFile VBP 18/3/29(木) 10:54 発言[未読]
【79746】Re:CopyFile VBP 18/3/29(木) 12:28 お礼[未読]
【79749】Re:CopyFile γ 18/3/29(木) 21:23 発言[未読]

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