VB怎么备份已打开的Access数据库

allcap · 发表于 2011-8-9 08:25

如题，
用filecopy说是access denied

XZ19860527 · 发表于 2011-8-9 08:54

http://club.excelhome.net/thread-622409-1-1.html 采用的是filecopy

allcap · 发表于 2011-8-9 13:57

我原来用的也是filecopy，可是不行。

allcap · 发表于 2011-8-9 14:08

我做了点修改可以了，
Private Sub Command0_Click()

Dim MyFile As Object
On Error GoTo err

If Dir(CurrentProject.Path & "\Access Tips Database.mdb") <> "" Then
Set MyFile = CreateObject("Scripting.FileSystemObject")
MyFile.CopyFile CurrentProject.Path & "\" & "Access Tips Database.mdb", CurrentProject.Path & "\Access Tips Database_" & Format(Now, "yyyy-mm-dd-hh-mm") & ".mdb" '备份
MsgBox "文件已经备份，路径:" & Chr(13) & CurrentProject.Path & "\Access Tips Database_" & Format(Now, "yyyy-mm-dd-hh-mm") & ".mdb"
End If
Set MyFile = Nothing
Exit Sub
err:
MsgBox err.Description

End Sub

js990749225 · 发表于 2018-10-19 10:55

楼主解决了我的问题，顶一下

qq177844 · 发表于 2018-10-31 16:45

学习学习在学习

		自动登录	找回密码
密码			免费注册

[求助] VB怎么备份已打开的Access数据库