Excel VBA質問箱 IV

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

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


12919 / 13644 ツリー ←次へ | 前へ→

【7959】リターンコードについて kei 03/9/25(木) 13:52 質問
【7963】Re:リターンコードについて ichinose 03/9/25(木) 14:27 回答
【7967】Re:リターンコードについて kei 03/9/25(木) 15:19 お礼

【7959】リターンコードについて
質問  kei  - 03/9/25(木) 13:52 -

引用なし
パスワード
   こんにちわ、いつも大変お世話になっております。

aa = "D:\test\aa.txt"
bb = "D:\tmp\aa.txt"
FileCopy aa, bb
としてコピーをしています。

コピーが成功したかどうか?
または上書き、失敗の判定をしたいのですが
関数のリターンコードは返ってこないのでしょうか?

また、皆様方は通常どのような後処理をしておられるか
参考までにお聞きかせいただけないでしょうか?
宜しくお願いいたします。

【7963】Re:リターンコードについて
回答  ichinose  - 03/9/25(木) 14:27 -

引用なし
パスワード
   ▼kei さん:
こんにちは。

>aa = "D:\test\aa.txt"
>bb = "D:\tmp\aa.txt"
>FileCopy aa, bb
>としてコピーをしています。
>コピーが成功したかどうか?
>または上書き、失敗の判定をしたいのですが
>関数のリターンコードは返ってこないのでしょうか?
>
>また、皆様方は通常どのような後処理をしておられるか
>参考までにお聞きかせいただけないでしょうか?
>宜しくお願いいたします。
殆ど場合、on error 〜 ステートメントを使ってしまいます。

'=================================================
Sub main()
  aa = "D:\test\aa.txt"
  bb = "D:\tmp\aa.txt"
  retcode = filecopy_sp(aa, bb)
  If retcode = 0 Then
    MsgBox "コピー成功"
  Else
    MsgBox Error$(retcode)
    End If
End Sub
'===================================================
Function filecopy_sp(flnm1, flnm2) As Long
  On Error Resume Next
  Err.Clear
  FileCopy flnm1, flnm2
  filecopy_sp = Err.Number
  On Error GoTo 0
End Function

【7967】Re:リターンコードについて
お礼  kei  - 03/9/25(木) 15:19 -

引用なし
パスワード
   ichinoseさま、早速のご回答をありがとうございます。

>殆ど場合、on error 〜 ステートメントを使ってしまいます。
とてもわかりやすいサンプルまでつけていただき
大変参考になりました。
ありがとうございます。

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