help with FileCopy

[vaingelo]

ok,..

ive been getting a lot of help here lately,..

i need another,..
having backups are good right,..?

can i use the filecopy command to make a backup of my access database and save it to a specified folder on my computer?

[dglienna]

Not while it's open. I'd write a program that is separate from Access.

Have you tried it? Here's a Compact and Repair, which I run on program start-up.

Option Explicit

Private Sub Form_Load()
' Set Reference to Microsoft Jet Runtim Object (JRO)
'  BROWSE if not found: \program files\common files\system\ado\msjro.dll
  CompactAndRepair (db$)
End Sub


Sub CompactAndRepair(db$)
  Dim jro As jro.JetEngine, xn$
  Set jro = New jro.JetEngine
  Screen.MousePointer = vbHourglass
  xn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\"
  jro.CompactDatabase xn & db, xn & db & "-2"
  If Len(Dir(App.Path & "\" & db & "-2")) > 0 Then
    Kill App.Path & "\" & db
    Do While Len(Dir(App.Path & "\" & db)) > 0
      DoEvents               ' wait for delete
    Loop
    Name App.Path & "\" & db & "-2" As App.Path & "\" & db
    Do While Len(Dir(App.Path & "\" & db)) = 0
    DoEvents        ' wait for copy to complete
    Loop
End If
Screen.MousePointer = vbDefault
End Sub