backup an access DB 3

[micky500970]

Hello,

I would like to create a program that could create a copy of our access DB and store it in another directory. I would like to do this three times a day so I would somehow need to check if the DB is in use.

I was hoping to get some advice on how I should approach this as the DB is very important and I would hate to destroy it :O)

thanks in advance

Mick

 

[PatrickIRL]

I'm doing the same thing using the FileSystemObject.

Dim fso as FileSystemObject
set fso = new FileSystemObject

fso.copyfile (source, destination,overwrite (True/False))

set fso = nothing

Hope this helps,

Patrick

 

[HarleyQuinn]

Hi,

You can use FileCopy. It will return a trappable error if the file it is attempting to copy is open.

It took me 22 seconds to copy a 320md DB.

Hope this helps

Harleyquinn

---------------------------------
For tsunami relief donations

 

[HarleyQuinn]

Patrick's answer is about twice as fast as mine.

If you put in a clause into his code saying:

If fso.FileExists("Database_to_Copy.ldb") = False Then
'Code to copy the file...

That will check if the DB is open already before you would try and copy it.

Hope this helps

Harleyquinn

---------------------------------
For tsunami relief donations

 

[micky500970]

Hi guys,

I cannot get it to work. i have made the necessary reference.

Dim fso As FileSystemObject
Set fso = New FileSystemObject



fso.CopyFile("c:\rp\db1.mdb","c:\db-backup",true)

I get the following error:

compile error, expected =

any help will be much appreciated

Mick

 

[Reuel]

Change this:

fso.CopyFile("c:\rp\db1.mdb","c:\db-backup",true)

to this:

fso.CopyFile "c:\rp\db1.mdb","c:\db-backup",true

Note the removal of the (). You are trying to call a function when you include them, so the compiler is expecting the =.

 

[micky500970]

Great!

But now i get a permission denied error.
I have checked the C drive and everyone has full control.
i have also replaced the DB file with a text file and still get the permission error.
It is one of those nights.


mick

 

[micky500970]

finally sorted it out. i forgot a backslash!

cheers