VB 复制问题

Question

我用的是Access2003，我用VB做了个库房管理的程序，因为数据库里面存的数据比较重要，我怕自己的程序出错时将数据库中的内容损坏或是丢失，所以我想添加一个
Command控件，点击时可以将这个数据库备份到我指定的一个目录下。
希望大家可以帮我看看怎么实现，谢谢。

Answer 1

一个commanddialog控件显示保存路径，使用copyfile函数就可以了，注意命名

Answer 2

VB内部函数FileCopy (Source As String, Destination As String)Filecopy 数据库文件名, 目标文件名当然，使用时最好指定路径。

Answer 3

Private Sub Command2_Click()
FileCopy "C:\a.mdb", "D:\a.mdb"
End Sub

Answer 4

'引用Microsoft jet and Replication Object 2.6 Library
'Access数据库压缩修复函数备份一举三得:Sub BackupMdb(sFile As String,dFile as string)
    'sFile源文件,dFile目标文件
    Dim miJRO As jro.JetEngine
    Set miJRO = New jro.JetEngine
    miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source="& sFile &";" _
        & "Jet OLEDB:Database Password=123", _
    "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & dFile & ";" _
        & "Jet OLEDB:Database Password=123"      '<--注:用与源文件不同的密码,可以修改密码
End Sub

Answer 5

我的代码是这样，现在报错说是找不到文件夹，为什么阿？
   Set FileSys = CreateObject("scripting.filesystemobject")
   FileSys.CopyFile "D:\Program Files\Microsoft Visual Studio\VB98\仓库管理\仓库管理.mdb", "E:\仓库.mdb", True             '拷贝文件
   FileSys.copyfolder "D:\Program Files\Microsoft Visual Studio\VB98\仓库管理", "E:\软件", True                     '拷贝文件夹
前边是我想要复制的数据库，他存放在仓库管理这个文件夹里，后边是我想存放的地址。

Answer 6

Private Sub Command2_Click()
FileCopy "C:\a.mdb", "D:\a.mdb"
End Sub
这个可以，但是我想在我程序里面的窗体中输入存放的路径，这样怎么实现？还有就是，如果我点击的多了，他们又提示我替换阿（重名的原因），这样我就不知道
我存上的是不是最新的数据库阿。

Answer 7

 先用dir检查一下你输入的路径是否存在，不存在则先创建之，如果要看存的版本，建议自己取名自动形成带日期的格式
 或者用对话框给选择存储的路径并返回后带上格式化的名字