VBA - copy file - Access denied error message

[ericlch16]

Hi

I am using VBA to copy a file to a directory. When the user does not have access to the directory, i want to display an msgbox ("Please contact your administrator!")

But how can i catch the access denied error message so that i can do an if statement to display that msgbox

FileSystemObject.CopyFile sourcefile, destinatationfile

IF access denied msg THEN
msgbox("PLEASE CONTACT YOUR ADMINISTRATOR)
END IF

 

[GWteB]

The "Access Denied" occurs in two cases:
- when the destination folder (for that particular user) is read only;
- when the destination folder (for that particular user) is accessible for read/write but the destination file already exists and has the read-only file attribute.
These situations can be handled like this:

    On Error Resume Next
    fso.CopyFile sourcefile, destinationfile
    If Err.Number <> 0 Then
        If Err.Number = 75 Then
            MsgBox "Access denied"
        Else
            MsgBox "An error occurred..."
        End If
        Err.Clear
    End If
    On Error GoTo 0

 

[ericlch16]

The "Access Denied" occurs in two cases:
- when the destination folder (for that particular user) is read only;
- when the destination folder (for that particular user) is accessible for read/write but the destination file already exists and has the read-only file attribute.
These situations can be handled like this:

    On Error Resume Next
    fso.CopyFile sourcefile, destinationfile
    If Err.Number <> 0 Then
        If Err.Number = 75 Then
            MsgBox "Access denied"
        Else
            MsgBox "An error occurred..."
        End If
        Err.Clear
    End If
    On Error GoTo 0

I did this code.

However, the Error msg I am getting is 70 even though the file was copied successfully. It is not returning 0. Any reason why?

 

[GWteB]

When you copy a file, a number of things actually happen at the file level, including:
- both the source file and the target file are opened;
- the first with read permission, the second with exclusive write permission.
If one of these opening attempts fails, for example if another process has (temporarily) blocked this file, this error code occurs: 70 - Permission Denied. This error therefore has a different cause than error code 75 - Access Denied.
It is recommended to check whether the source and target file have exactly the same content.