Excel VBA質問箱 IV

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

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


105 / 13196 ツリー ←次へ | 前へ→

【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 発言[未読]

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

【79742】Re:CopyFile
発言  γ  - 18/3/28(水) 21:22 -

引用なし
パスワード
   どの行でメッセージが出るんですか?
示されたものはエラーにしかならないですが?

【79745】Re:CopyFile
発言  VBP  - 18/3/29(木) 10:54 -

引用なし
パスワード
       γさん
返信ありがとうございます。
すいません。
間違えていました。
2回表示されます。

>どの行でメッセージが出るんですか?

たぶん、コピーの時と属性を変更した時だと思います。

>示されたものはエラーにしかならないですが?

エラーにはならないです。

【79746】Re:CopyFile
お礼  VBP  - 18/3/29(木) 12:28 -

引用なし
パスワード
   γさん

自己解決しました。
単に記述ミスでした。
すいません、ありがとうございました。

【79749】Re:CopyFile
発言  γ  - 18/3/29(木) 21:23 -

引用なし
パスワード
   自己解決されたのなら なにより。
次回質問するときには、VBEのコードをそのままコピーペイストすることを
すすめます。

Call Fso.CopyFile(コピー元,C:\test1\)
C:\test1\は文字列ですから、"C:\test1\"とする必要がありますし、
Set Fob = Fso.GetFile(C:\test2\g2.txt, C:\test2\g3.txt)
もエラーです。引数を二つとることはできません。

タイプミスは、質疑の邪魔になるだけです。
基本的には、そのままコピーペイストしてください。
もちろん、固有名詞は適当に変更してかまいません。

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