Suppressing Error Message

mjschukas · Mar 21st 2007

i'm coping a file over itself and i get an information message
"File cannot be copied onto itself" - An attempt to copy a file could not be completed because the file already exists or same source and destination.

i would like to surpress this, i have tried the following, but to no avail:

Code

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Interactive = False

???

thank you...

**royUK** · Mar 21st 2007

Re: Surpressing Error Message

Try

Code

On Error Resume next


'your code


On Error Goto 0

DaveR (UK) · Mar 21st 2007

Re: Surpressing Error Message

can you post the code you are using to save the file....this is probably where the error is...

mjschukas · Mar 21st 2007

Re: Surpressing Error Message

thank you...

Code

'...
NewZip (FileNameZip)
On Error Resume Next
Set oApp = CreateObject("Shell.Application")
'Copy the files to the compressed folder
oApp.Namespace(FileNameZip).CopyHere oApp.Namespace(FolderName).items
'error generated here...!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!111    
Do Until oApp.Namespace(FileNameZip).items.Count = oApp.Namespace(FolderName).items.Count
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    MsgBox "You find the zipfile here: " & FileNameZip
    On Error GoTo 0
    Set oApp = Nothing

Display More

?is this enough of the code...?

thank you...!

Suppressing Error Message

Participate now!

Share