Copy to CD (Access 2003)

[Sarge]

Hi All,
I was wondering if there is a way to copy an Access Database to CD in Access. I have a client who wants to be able to push a button and have his Database, which only contains data Tables, no Queries, Forms or Reports, copied to a CD. The client does not like copying the file using copy/paste and then having to write the file to the CD. I have been reading access help, but have not found an answer. So does any one have a way to do this? Or is there some documentation I could read to help me?
Thanks,
Sarge

[HansV]

If the CD accepts direct writing of files, you could use code. But where would the button be if the database contains no forms? You could create a form with one command button, with code like this:

Private Sub cmdCopy_Click()
Dim fso As Object
Dim fil As Object

On Error GoTo ErrHandler

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(CurrentDb.Name)
fil.Copy "E:" & fil.Name, True

ExitHandler:
Set fil = Nothing
Set fso = Nothing
Exit Sub

ErrHandler:
MsgBox Err.Description, vbExclamation
Resume ExitHandler
End Sub

Replace E: with the drive letter of the CD drive.

[Support4John]

Thanks for code, will it work in A2k?

[HansV]

It should, unless you're on a network and the network admin has disabled scripting.