| 发表于:2007-04-23 16:31:25 楼主 |
我的语句如下 我准备实现数据、库的备份,保存到指定的位置 可是没执行 ,也没有提示错误 ,请问 错误在那里阿 on error resume next cmndlog.action = 2 '//保存对华框 savefile = cmndlog.filename '// 获取保存路径 namefile = cmndlog.filetitle '//获取保存的名子 targetf = savefile if namefile = " " then msgbox "没有给备份的数据库命名 ", , "提示信息 " exit sub else openfile = "\\chenrf\共享文档\资料系统\资料库.mdb " filecopy openfile, targetf msgbox "资料库备份成功 ", , "备份成功 " end if |
|
|
|
|