File copy (while .mdb is open 6

[claudebo]

Hi
I there any way to make a copy of an Original.mdb file while Original.mdb is open.

I tried :
Dim SourceFile, DestinationFile
SourceFile = "C:\Original.mdb" ' source file name.
DestinationFile = "C:\Backup.mdb" ' target file name.
FileCopy SourceFile, DestinationFile ' source to target.

but that does not work (access 97).
Any Ideas
Claude

 

[Kotaro24]

I'd have bet money you were wrong saying that code doesn't work. Of course, you were correct! It won't let you do that.

Drop the following code into a Module. It WILL work.

Function BackMeUp()
Dim SourceFile, DestinationFile
Dim DB As Database
Dim CHNL As Integer
Set DB = Currentdb
SourceFile = DB.Name ' source file name.
DestinationFile = "C:\Backup.mdb" ' target file name.
CHNL = FreeFile
Open "C:\Junk.bat" For Output As #CHNL
Print #CHNL, "COPY " & Chr(34) & SourceFile & Chr(34) & " " & Chr(34) & DestinationFile & Chr(34) & " /Y"
'FileCopy SourceFile, DestinationFile ' source to target.
Close #CHNL
Shell "C:\Junk.bat", vbNormalFocus
' Shell "C:\Junk.bat", vbHide
End Function

 

[BillPower]

Hi Kotaro24,

This is a fabulous bit of coding, sorry I can only give you one star it certainly deserves the maximum 5.

Thanks a lot

Bill

 

[danvlas]

Right Bill.
Here's another one

Cool.


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[claudebo]

It worked!!!

Thanks Kotaro24

Claude

 

[SiberBob]

Kotaro24

I cannibalized your code.

I wanted to copy the backend and not the front end (current db), so I just wrote a static bat file with the contents of your junk.bat, then used the shell command you had.

Think it will work like a charm - haven't tested it completely yet, but I'm confident it will.

Star for the code that I used.

Thanks,

SiberBob