ник: Дядя Федор
В блокноте пишешь
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "c:\baza\baza.mdb" , "C:\bazacopy\" , OverwriteExisting
If Err.Number Then
WScript.Echo "Ошибка копирования."
else
WScript.Echo "Успех"
Err.Clear
End if
сохраняешь с расширением VBS
Получаешь скрипт копирования
ПС проверку ошибок можно убрать или оставить только
If Err.Number Then
WScript.Echo "Ошибка копирования."
end if
добавил
objFSO.CopyFile "c:\tmp\test.htm" , "C:\test" & date() & ".htm" , OverwriteExisting - будет много копий с датой