ファイルのコピー

解決

---

ファイルをコピーしようとしたのですが
ERROR_FILE_EXISTS が存在しない変数というエラーがでました。
Private Sub DoCopyFile()
    Dim bResult As Long

    'ファイルのコピー
    bResult = CopyFile("C:\MojiVader.txt", "Z:\Moji\MojiVader.txt", True)

    If bResult = 0 Then 'コピー失敗
        MsgBox "エラー発生"

        If Err.LastDllError = ERROR_FILE_EXISTS Then
            MsgBox "コピー先に既にファイルが存在する"
        End If
    Else
        MsgBox "コピー成功"
    End If
End Sub
ERROR_FILE_EXISTSはファイルが存在するときのエラーの値なので
存在しない理由が今ひとつわかりません。

編集 削除

---

ERROR_FILE_EXISTS = 80;
を定数定義してないのでは？
Win32のエラーコードを良く見ましょう。

編集 削除

---

うまくいきました。
ありがとうございます

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。