[求助]找个好心的高手帮忙~~~~

莫易

我这有个超市管理系统需要添加  系统备份  还原

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

有高手帮帮，谢谢了。

一点通

http://www.office-cn.net/forum.php?mod=viewthread&tid=27751

nxjswt

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编辑过]