Copy Open db file

[gg80]

I found a site that showed a way to make a copy of a file while the file was open. One of several, but this one works. How do I get the expression to save the copied file to the same folder as the original file? I have tried Application.currentproject.path in several combinations, but am missing something.

This is code that I found and am using, but need to change to save in same folder as current file.

Dim external_db As Object
Set external_db = CreateObject("Scripting.FileSystemObject")
external_db.CopyFile "C:\Users\GG\Documents\TypesExamplesHints\COPYLive DBfile.accdb", "C:\Users\GG\Documents\TypesExamplesHints\COPY _of _COPYLiveDBfile.accdb", True
Set external_db = Nothing



Using A2007 and A2003. Any help much appreciated. From various websites, I know that most people consider copying a live file a bad idea. But here, I have a good reason.

[Missinglinq]

Is there a reason that you need to do this isn code, rather than going to the Office Button - Manage and selecting Back Up Database? This saves the backup to the same folder.

Linq ;0)>

[mussy]

Here is my problem. I developed a datase in Access 2010 that was working pretty well. Suddenly my boss whose computer has the 2007 version kept having ERROR 3343 while trying to open the file. Because of the degree of importance of the project and the time limit to deliver, i went back and recreated the work in the 2007 version. She is happy and I am Happy. Now i am facing a tougher challenge whereby the new database on the new 2007 database, altough on the shared drive network, two users are not permitted to access the database simultaneously anymore. Could someone tell please what really happened there and how i can get it resolved? Thanks,

[gg80]

Yes-If I use a button at all, it would be on a form accompanied by instructions. My users are not Access familiar and just aren't comfortable/able with actions beyond the forms. Is there a way to do this code with application.currentProject.path?

[gg80]

Somehow-two postings are getting mixed here. In case missed it, here is reply to Missinglinq on reply to "Copy Open db File":

Yes-If I use a button at all, it would be on a form accompanied by instructions. My users are not Access familiar and just aren't comfortable/able with actions beyond the forms. Is there a way to do this code with application.currentProject.path?