vb6.0 1.mdb文件备份

Dim SourceFile, DestinationFile, SourceDir, DestinationDir

SourceDir="C:\1\"

DestinationDir="C:\2\"

SourceFile = "1.mdb" ' 指定源文件名。

DestinationFile = format(now,"YYYYDDMM-HHNNSS") &".mdb" ' 指定目的文件名。

FileCopy SourceDir &SourceFile, DestinationDir &DestinationFile ' 将源文件的内容复制到目的文件中。

添加一个timer控件，多长时间做一次自己设置，hour（time）＝18（设置每天在18点是进行备份，如果要没星期一就改为week（date），自己设置），语法：

FileCopy

source,

destination

例子：

Private

Sub

Timer1_Timer()

If

hour(Time)=18

Then

FileCopy

"D:\Base\db1.mdb","E:\CopyBase"

'将D:\Base\里的db1.mdb数据库拷贝到E:\CopyBase里。

End

If

End

Sub

---