[pakos]

Καλησπέρα

κάτι τέτοιο χρησιμοποιώ
αν σε κάνει καλώς
Dim sSource, sDest As String
sSource = "C:\Φακελος" & "\" & "αρχειο" & ".accdb"
sDest = "C:\Φακελος" & "\" & "_" & "αρχειο" & Format(Date, "dd-mm-yyyy") & "-" & Format(Time, "hh-mmAMPM") & ".accdb"
Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Call oFSO.CopyFile(sSource, sDest, True)
FSO_FileCopy = True

διόρθωσε τις διαδρομές όπως θέλεις και την κατάληξη ".accdb" ή ".mdb"
ανάλογα με την access που έχεις