CopyFile error '70'

[thegameoflife]

I can cut and past the file below manually, but when I try doing it in code I get run-time error ‘70’. Is there some way around this?

Function Copy_Amarillo()

Dim Filepath1, Filepath2 As String
Dim FS As Object

Filepath1 = "M:\Hmopmt2.xls"
Filepath2 = "C:\Recovery"

Set FS = CreateObject("Scripting.FileSystemObject")

    FS.CopyFile Filepath1, Filepath2

End Function

Run-time error ‘70’ Permission denied…..

 

[GKProgrammer]

Try doing it this way:

Filecopy Filepath1, Filepath2

Let me know if this helps. Regards,
gkprogrammer

 

[thegameoflife]

nope. same error

what if the file is in use. would that cause the error?

If so, why do I not get the error when I manually copy the file?

 

[GKProgrammer]

This will not work correctly if the file is open otherwise it should work for you without a problem. I opened a file and then tried saving using this method while the file was still open and received the error 70 Permission Denied. So I am guessing that this is your problem. Regards,
gkprogrammer

 

[thegameoflife]

i found the error

Filepath2 = "C:\Recovery"

should be

Filepath2 = "C:\Recovery\"