| |
デスクトップの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回だけメッセージを出すにはどうすればいいのでしょうか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
