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:

FileCopy "U:\folder\file_name.xls", "U:\folder2\file_name.xls"

[Bob Phillips]

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

CreateObject("Scripting.FileSystemobject").CopyFile FileName1, FileName2

[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


Dim fso As Object

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

Set fso = Nothing

[Jarlisle]

Works great, thanks!