I am trying to copy a file by fso by i am getting error 70 (permission denied).
I have admin rights on the pc.
Here is the code.

Sub COPY_INVOICES()
Dim inv As String
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
FILETO = InputBox("PL ENTER FULL PATH WHERE YOU WANT TO COPY FILES", "PATH")
FILEFROM = "C:\INVPDF\" & Range(A1").value & ".pdf"
fso.CopyFile FILEFROM, FILETO
End Sub

I am entering full path in inputbox.

Pl help to resolve.

Regards,
Madiya