[Resolved] Permission Denied - FileCopy

[kfcSmitty]

See post # 6

[Webtest]

Try this:

MsgBox (Application.Path)

[kfcSmitty]

Application does not support .Path

[Webtest]

It does in Excel. What application are you using?

[kfcSmitty]

Oh yeah, sorry. I'm using Access 2002

[kfcSmitty]

I have it working with

FileCopy Application.CurrentProject.FullName, strDBLocation

but it keeps saying permission denied now :/

[Hack]

First, you need a backslash before the source location.

FileCopy app.Path & "\FinancialData.mdb", strDBLocation

Second, FileCopy is going to want the name of the file. In other words, if we weren't using a variable, the copy would look like

FileCopy "c:\folder\FinancialData.mdb", "c:\otherfolder\FinancialData.mdb"

Does strDBLocation contain the new folder path AND the db name?

[kfcSmitty]

yes, if I enter in the code I had before it would work if I hardcoded the database name.

Now my problem is, it is reading the proper file, and tryign to save to the proper location, but it says permission denied now.

[westconn1]

i doubt if you can copy the database you are working from with filecopy, as filecopy will not work with open files

pete

[kfcSmitty]

is there a command that will work with opened files?

Its weird, cause it copied it once when I had the file open (when I hardcoded the filename and path), but now it wont

verified - if I use

FileCopy "H:\JOB\FinancialData2.mdb", strDBLocation

it works fine

[westconn1]

you may be able to close the access application first then do file copy, i am not sure if that would work, but otherwise use the access saveAs command, to save the database to another location

pete

[Hack]

Hmmm....I probably should have guessed, since this is VBA, that the file would be open.

Anyway, I don't believe you are going to be able to issue code from within a database to copy itself while it is open. The FSO in VB will copy an open file, but the code to do the copy if coming from VB, not from within the file itself.

I think the best way to solve this little problem is to write a tiny little VB app that will do the copy for you (providing the databse is closed, of course).

[kfcSmitty]

But could someone explain why it copies just fine if I use

FileCopy "H:\JOB\FinancialData2.mdb", strDBLocation

but not with

FileCopy Application.CurrentProject.Fullname, strDBLocation

[westconn1]

what does Application.CurrentProject.Fullname return?

pete

[kfcSmitty]

boy am I embarassed

I was writing the copy file for "FinancialData2.mdb" but the file I have open is "PayrollData.mdb"

[westconn1]

hmmm an open file..........


pete