access利用批處理bat進(jìn)行備份文件

很多用過access的人都知道，access有個非常不好的毛病，就是容易崩潰。然后數(shù)據(jù)庫損壞

我們可以做的就是常常備份，避免數(shù)據(jù)丟失帶來巨大的影響

一般備份我們可以直接復(fù)制文件，按指定的要求在指定文件夾創(chuàng)建備份文件。

這里我們用dos批處理的方法做備份。

首先創(chuàng)建一個bat文件：新建文本，把下面代碼復(fù)制到文本中，后綴名改為xxx.bat

rem 本DOS批處理程序由黃海設(shè)計

@ echo off
cls

rem %1 表示源文件目錄
rem %2 表示目標(biāo)文件目錄

if not EXIST %2 md %2

xcopy %1 %2 /y
echo          ----------------------------
echo          |                          |
echo          |       已經(jīng)成功備份         |
echo          |                          |
echo          ----------------------------
pause

在vba中調(diào)用該bat，觸發(fā)該批處理的操作：

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 "數(shù)據(jù)已經(jīng)成功備份！", vbQuestion, Me.Caption
    Else
        MsgBox "源文件路徑和目標(biāo)文件路徑不能這空！", vbQuestion, Me.Caption
    End If
    
End Sub