ciao,

ho provato a fare come mi hai suggerito ho scritto questo codice:

Dim fileBackUp As String, fileSorgente As String, miaData As String
Dim nomefile As String

fileSorgente = "utenze.mdb"

nomefile = "utenze"

miaData = Replace(CStr(Date), "/", "_")

fileBackUp = nomefile & "_backUp_" & miaData & ".mdb"

'MsgBox fileBackUp

If Dir(fileBackUp) = "" Then 'se non esiste lo crea
Set mioFileSystem = CreateObject("Scripting.FileSystemObject")
mioFileSystem.copyfile fileSorgente, fileBackUp
End If


ma mi da errore su
mioFileSystem.copyfile fileSorgente, fileBackUp

dicendo che non trova il file....bo!