| |
|
|
| |
Public Sub CreateBackUp()
Dim strDBPath As String
Dim fso As Object
If MsgBox("Создать резервную копию БД ?", _
vbYesNo Or vbQuestion Or vbDefaultButton1, _
"Создание резервной копии") = vbYes Then
strDBPath = CurrentDb.Name
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strDBPath, Left(strDBPath, Len(strDBPath) - 3) & "bak"
End If
Application.Quit acQuitSaveAll
End Sub
|
Как сделать чтобы можно было выбирать место куда делается копия и имя копии состояло из даты копирования. | |
| |
| |
| |
|
|
| | диалог выбора/сохранения файла
http://hiprog.com/index.php?option=com_content&task=view&id=468
date - получение текущей даты | |
| |
| |
| |
|
|
| | http://am.rusimport.ru/MSAccess/topic.aspx?ID=706&find=winrar | |
| |
| |
