Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2637 / 76734

←次へ　｜　前へ→


	【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回だけメッセージを出すにはどうすればいいのでしょうか？

3 hits

▼

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