FileCopy but permission denied

[jscholds]

Hi,

I would like to copy and create a backup of a file that is open by users.

Have tried:

Dim sSourcePath As String, sDestPath As String

sSourcePath = "C:\testfile.DBF"
sDestPath = "C:\testfile_copy.DBF"

FileCopy sSourcePath, sDestPath

Obviously I get an error as the file is open, however is there any way I can copy the file with FileCopy or any other syntax?

Would it be possible to open the file as a "copy" then save it?

Not very familiar with VBA - would really appreciate some help on this!!

Regards,

Jakob

 

[NdNoviceHlp]

Jakob welcome to the board! Here's some code to copy files.

sub copythatfile
Dim xlobj as object
Set xlobj = CreateObject("Scripting.FileSystemObject")
'object.copyfile,source,destination,file overright(True is default)
xlobj.CopyFile "c:\bob\bob3.xls", "c:\bob\copybob3.xls", True
Set xlobj = Nothing
end sub

This copies the wb bob3.xls in folder bob in "C" directory to copybob3.xls also in folder bob in "C" directory. Hope this is what you're looking for. Dave

 

[jscholds]

Hi Dave,

That works miracles! Thanks for the help!

Jakob

 

[toshi_joovshin]

I'm just wonderin' why the FileCopy code did not work with this.

 

[drAli77]

Jakob welcome to the board! Here's some code to copy files.

sub copythatfile
Dim xlobj as object
Set xlobj = CreateObject("Scripting.FileSystemObject")
'object.copyfile,source,destination,file overright(True is default)
xlobj.CopyFile "c:\bob\bob3.xls", "c:\bob\copybob3.xls", True
Set xlobj = Nothing
end sub

This copies the wb bob3.xls in folder bob in "C" directory to copybob3.xls also in folder bob in "C" directory. Hope this is what you're looking for. Dave

This is great code!! thank you