ファイルのコピー (ID:111136)

名前

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

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