Office中国论坛/Access中国论坛

标题: [求助]找个好心的高手帮忙~~~~ [打印本页]

作者: 莫易 时间: 2006-7-1 04:10
标题: [求助]找个好心的高手帮忙~~~~
我这有个超市管理系统需要添加系统备份还原

以及购物的模块会员模块统计的一个简单的模块

有高手帮帮，谢谢了。

作者: 一点通 时间: 2006-7-1 20:58
http://www.office-cn.net/forum.php?mod=viewthread&tid=27751

作者: nxjswt 时间: 2006-7-3 06:55
Private Sub Command78_Click()

Dim a, b, c, fs
b = Format(Now, "yyyymmddhhmm")
a = CurrentProject.Path
c = a & "\backup\cmbak" & b & ".mdb"

Set fs = CreateObject("Scripting.FileSystemObject")

fs.copyfile a & "\cm.mdb", a & ".\backup\cmbak" & b & ".mdb"
MsgBox "本系统已备份至" & c

End Sub

是高手做好的备份[em06]

[此贴子已经被作者于2006-7-2 22:55:13编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)