access利用批处理bat进行备份文件

很多用过access的人都知道，access有个非常不好的毛病，就是容易崩溃。然后数据库损坏

我们可以做的就是常常备份，避免数据丢失带来巨大的影响

一般备份我们可以直接复制文件，按指定的要求在指定文件夹创建备份文件。

这里我们用dos批处理的方法做备份。

首先创建一个bat文件：新建文本，把下面代码复制到文本中，后缀名改为xxx.bat

rem 本DOS批处理程序由黄海设计

@ echo off
cls

rem %1 表示源文件目录
rem %2 表示目标文件目录

if not EXIST %2 md %2

xcopy %1 %2 /y
echo          ----------------------------
echo          |                          |
echo          |       已经成功备份         |
echo          |                          |
echo          ----------------------------
pause

在vba中调用该bat，触发该批处理的操作：

Private Sub cmdBackup_Click()
    
    If Not IsNull(Me.txtSourceDir) Then strSourceDir = Me.txtSourceDir
    If Not IsNull(Me.txtDestinationDir) Then strDestinationDir = Me.txtDestinationDir
    
    If Len(strSourceDir) > 0 And Len(strDestinationDir) > 0 Then
        Dim x As Variant
        x = Shell(strSourceDir & "\xxx.bat " & strSourceDir & " " & strDestinationDir, vbHide)
        MsgBox "数据已经成功备份！", vbQuestion, Me.Caption
    Else
        MsgBox "源文件路径和目标文件路径不能这空！", vbQuestion, Me.Caption
    End If
    
End Sub