database stops responding on backup

S

SLP

Hi. I have a database that on a command button runs the following code to
make a backup:

Private Sub BackupButton_Click()

Dim fso As Object
Dim boverwrite As Boolean
Set fso = CreateObject("Scripting.fileSystemObject")

MsgBox "Making the backup. It takes about 5 minutes.", vbInformation, ""

fso.copyfile "G:\Accounting\Journal Entries\FGPQueryToolNEW.mdb",
"G:\Accounting\Journal Entries\Backups\FGPQueryToolNew" & " " &
Format$(Now(), "mm-dd-yyyy hh.nn") & ".mdb"

Set fso = Nothing

MsgBox "The database has been backed up.", vbInformation, ""

End Sub

Two weeks ago, it took about 5 minutes and worked fine. Today, it takes a
lot longer and the Switchboard form, where the button is, stop responding.
It does, though, make a backup.

Any ideas on what is wrong? Thanks in advance.
 
Top