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