备份文件为日期+文件名

1970-1-1 08:00| 发布者: 竹笛『文章』| 查看: 2728| 评论: 0

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

正    文：

　　直接使用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

帐号		自动登录	找回密码
密码			注册

相关分类