Solved: Copying a file when the source file is open.

[Jarlisle]

Is there a way to copy a file when the file is open?

I have the following, but it will error when the file is open:

[vba]FileCopy "U:\folder\file_name.xls", "U:\folder2\file_name.xls"[/vba]

[Bob Phillips]

[vba]

Const FileName1 As String = "U:\folder\file_name.xls"
Const FileName2 As String = "U:\folder2\file_name.xls"

CreateObject("Scripting.FileSystemobject").CopyFile FileName1, FileName2
[/vba]

[Jarlisle]

Thanks XLD! It seems to have worked.

If I want to copy 2 files or more would I just need to duplicate the script, or would it cause issues with something?

[Bob Phillips]

No, don't duplicate it, it will instantiate a filesystemobject each time.

Rather use this approach

[vba]
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemobject")
fso.CopyFile FileName1, FileName2
fso.CopyFile FileName3, FileName4
'rest of code

Set fso = Nothing
[/vba]

[Jarlisle]

Works great, thanks!