vb access数据库备份

Dim sourceDB, backupDB, folderPath
sourceDB = "C:\Path\To\Your\Database.accdb"
folderPath = "C:\Path\To\Backup\Folder\"
backupDB = folderPath & "Backup_" & Date & ".accdb"

' 创建备份文件夹（如果不存在）
If Not CreateFolder(folderPath) Then
    WScript.Echo "无法创建备份文件夹"
    Exit Sub
End If

' 复制数据库文件
If CopyFile(sourceDB, backupDB) Then
    WScript.Echo "备份成功: " & backupDB
Else
    WScript.Echo "备份失败"
End If

' 创建文件夹函数
Function CreateFolder(folderPath)
    On Error Resume Next
    CreateFolder = True
    MkDir folderPath
    If Err.Number <> 0 Then
        CreateFolder = False
    End If
    On Error GoTo 0
End Function

' 复制文件函数
Function CopyFile(source, destination)
    On Error Resume Next
    FileCopy source, destination
    CopyFile = (Err.Number = 0)
    On Error GoTo 0
End Function