备份文件为日期+文件名_access数据库

备份文件为日期+文件名

时间：2004-11-23 22:43 来源：access软件网作者：竹笛『文… 阅读：次

作    者：竹笛
摘    要：备份文件的一种方法

正    文：

　　直接使用VBA的FileCopy命令实现文件备份。

Public Function backup()
Dim a As String
Dim b, c As String

a = Str(Date) ' 产生当前日期字符串
b = "bak" ' 产生备份标识

' 产生备份文件名
c = "C:\Program Files\Bojing\" & a & b & ".mdb"

FileCopy "C:\Program Files\Bojing\Bojing.mdb", c
End Function

(责任编辑：admin)

顶一下

(0)

踩一下

(0)