以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想做一个自动备份Access数据库的功能，请问怎样实现呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=37647)
--  作者：lyzhuo
--  发布时间：2013/7/7 17:59:00
--  我想做一个自动备份Access数据库的功能，请问怎样实现呢？

我使用的Access数据库，我想实现自动备份到另一个目标的功能，请问该怎样实现呢？

数据库放在程序的目标里，名称是Data.mdb，想备份到G:\\备份目录，想每隔1个小时备份一次，而备份名称为：数据备份-XXXX.XX.XX-XX.XX.mdb（含义：年（四位）.月（两位）.日（两位）-时（两位）.分（两位）。

请高手指点一下，谢谢！
--  作者：y2287958
--  发布时间：2013/7/7 22:27:00
--  
用复制文件函数就可以了
--  作者：lyzhuo
--  发布时间：2013/7/10 10:28:00
--  

能不能说得具体一点？
--  作者：Bin
--  发布时间：2013/7/10 10:31:00
--  
http://www.foxtable.com/help/topics/0331.htm

CopyFile

将文件复制到新位置。

语法

CopyFile(sourceFile ,destinationFile ,overwrite)

sourceFile：要复制的文件。
destinationFile：目标文件。
overwrite: 可选参数，如果目标文件已经存在，是否覆盖。

示例

将文件Test.txt 复制到目录TestFiles2 ，但不覆盖现有的文件：

FileSys.CopyFile("C:\\TestFiles\\test.txt", "C:\\TestFiles2\\test.txt")

将文件Test.txt 复制到目录TestFiles2 ，并重命名为mytext.txt，如果mytext.txt文件已经存在，则覆盖：

FileSys.CopyFile("C:\\TestFiles\\test.txt", "C:\\TestFiles2\\mytest.txt",True)
--  作者：lyzhuo
--  发布时间：2013/7/10 10:48:00
--  

谢谢，但如何改文件名称为想要的格式呢？
--  作者：狐来江湖
--  发布时间：2013/7/12 21:58:00
--  

Dim d As Date = Date.Now
Dim s As String = Format(d,"yyMMddHHmmss")
FileSys.CopyFile(projectpath & "*******.mdb","********" & s & ".mdb",True)
MessageBox.Show("数据备份完成!")

 

 

你可以参考一下。