ファイルのコピー

解決

KBC 2004-01-08 19:25:00 No: 111136

ファイルをコピーしようとしたのですが
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はファイルが存在するときのエラーの値なので
存在しない理由が今ひとつわかりません。

名無しやめんねん 2004-01-08 19:42:01 No: 111137

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

KBC 2004-01-08 20:26:23 No: 111138

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