数据库备份代码问题，请高手指点

ke405144275

我想更改下面备份模块的保存路径，例如保存到D：\水稻数据库\backup，由于太菜的缘故，不知道该作何更改，请高手不吝指导！！

Public Function bakup()
  Set fs = CreateObject("Scripting.FileSystemObject")
  fs.copyfile CurrentProject.FullName, CurrentProject.Path & "\Bak_" & CurrentProject.Name
End Function

ke405144275

自己坐一回沙发，o(∩_∩)o...

ACMAIN_CHM

1. Public Sub bakup()
   
2.     Shell "cmd /c copy """ & CurrentProject.FullName & """ """ & CurrentProject.Path & "\Bak_" & CurrentProject.Name & "\Bak_" & CurrentProject.Name & """"
   
3. End Sub

复制代码

******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

chenyingfengsx

dddd