FSYS ,Copy File

[selimsl]

Hi

I am trying to copy a file to an another folder

Dim FSys As New Scripting.FileSystemObject

FSys.CopyFile CommonDialog1.FileName, App.Path & "\pics\pattern", True

But it gives an error

Run time error '70'
Permission denied

I couldn't find what is the problem

Thanks in advice...

 

[Scoty]

70 = target file is open by user.