FileCopy c:\cartella\database.mdb, "C:\database.mdb"
..a parte che mancano i doppi apici sul primo file....

io non credo ci sia bisogno di loop...

è normale che con FileCopy ti trovi davanti ad un errore per 'Autorizzazione negata'...

Se invece usi FSO dovresti risolvere il problema...
Ecco la routine che devi utilizzare:

codice:
Private Sub ForzaCopia(FileSorgente, FileDestinazione)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile FileSorgente, FileDestinazione
    Set fso = Nothing
End Sub
ora sostituisci il tuo:

codice:
FileCopy "c:\cartella\database.mdb", "C:\database.mdb"
con

codice:
ForzaCopia "c:\cartella\database.mdb", "C:\database.mdb"
Ciao!