Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\1_Текущее\Склад_ПВХ\1_PROGRAMS\TBL.mdb" , "C:\1_Текущее\Склад_ПВХ\1_PROGRAMS\ARHIV\TBL_" & date() & "_.mdb" , OverwriteExisting 
If Err.Number Then
else
Err.Clear
End if