office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2020-12-06 08:00:00
tmtony8
原创
527

很多用过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 




    分享