FileCopy Mystery

[pluto]

My application has 14 mdb files and I am writing a backup routine. Using filecopy,sourcefile,destinationfile in the routine. 13 of the files copy and on one I get the error message "permission denied".

I have checked for any differences in file structure and attributes, none. Have gone to DOS and copied. Copied the file to a different name and then copied back with no difference in result.

Any thoughts on what could be happening?

Thanks again, and again to all you experts.

[Martin Wilson]

Could it be in use by another program?

[pluto]

No, sad to say.

[Hack]

One thought one question.

Question: Can you copy the database from one place to another using the standard copy from Windows Explorer?

Thought: Try using VB's SetAttr to ensure the Db's propertys are set only to Archive.

[pluto]

If I eliminate the FileExists call then the file will copy.

If FileExists("cdata.mdb") Then
frmBusiness.txtBusinessName = frmCompany.txtCompany
End If

Public Function FileExists(ByVal FileName As String) As Boolean
FileExists = ((Len(FileName) > 0) And (Len(Dir$(FileName)) > 0))
End Function

There is a data control on frmCompany using cdata.mdb.

If this action opens the file, how do I close.

Thanks.

[wolfofthenorth]

Here's another method that you could use.


Dim F As File, FSO As New FileSystemObject
Dim S as string

S = "C:\Test.txt"

If FSO.FileExists(S) Then
Set F = FSO.GetFile(S)
F.Copy "C:\CopyTest.txt", True
End If

[pluto]

My question was, "if the following opens the file, how do I close"

frmBusiness.txtBusinessName = frmCompany.txtCompany

(frmCompany has a data control tied to cdata.mdb)