如何每次使用数据库就自动备份到指定路径？

LoveSeiya

看到wanshan的一条代码和实例，觉得非常不错，但是数据库是保存在和文件同一个文件夹内，想知道有什么方法保存到我指定的路径呢？  

Set fs = CreateObject("Scripting.FileSystemObject")
  fs.copyfile CurrentProject.FullName, CurrentProject.Path & "\Bak_" & CurrentProject.Name
实例为wanshan提供

[此贴子已经被作者于2007-6-3 13:35:34编辑过]

Grant

原作者:   fan0217
打开对话框，一般都采用控件或调用API函数，此函数虽然采用的Microsoft Office 11.0 Object Library，但没有使用常量名称做参数，所以不需要引用Microsoft Office 11.0 Object Library。
Function GetFileName(ByVal DialogType As Integer) As String
'参数DialogType说明：
'1.“打开”对话框
'3.“文件选取器”对话框
'4.“文件夹选取器”对话框
'不对dlgOpen进行声明的原因是：不需要引用Microsoft Office 11.0 Object Library
Set dlgOpen = Application.FileDialog(DialogType)   
With dlgOpen
        .AllowMultiSelect = False
        .Show
End With
If dlgOpen.SelectedItems.Count > 0 Then
        GetFileName = dlgOpen.SelectedItems(1)
    Else
        GetFileName = ""   
End If
Set dlgOpen = Nothing
End Function

参数2为“另存为”对话框，采用上述返回值不太合适。打开另存为对话框函数：
Function FileSaveAs()
'不对dlgOpen进行声明的原因是：不需要引用Microsoft Office 11.0 Object Library
Set dlgOpen = Application.FileDialog(2)
With dlgOpen
       .AllowMultiSelect = False
       .Show   
End With  
Set dlgOpen = Nothing
End Function

LoveSeiya

一点没看明白，我太弱了

lessonleung

fs.copyfile CurrentProject.FullName, CurrentProject.Path & "\backup\Bak_" & CurrentProject.Name

kingcross

好东西!

cnffmso

收藏了，这个问题已经困扰我几天了，谢谢

wufeng980114

学习了

herry2003aa

ycxchen

学习一下！

lovehere

学习一下，正在找这方面的内容