Office中国论坛/Access中国论坛

标题: DOS命令 [打印本页]

作者: zyz218 时间: 2006-3-8 20:02
标题: DOS命令
copy \\Server\noritz\MPS\Shuju.mdb D:\计画数据\&Date&".mdb"

在下想以当日的日期为文件名备份数据库，但目标文件名这样写不对，请教！！！！

作者: fan0217 时间: 2006-3-8 20:16
是备份数据库吗？那就看看这里：http://www.office-cn.net/forum.php?mod=viewthread&tid=16410&replyID=&skin=1

作者: zyz218 时间: 2006-3-8 21:24
谢谢FAN0217，我要用任务计划每日开机备份数据库，只想请教copy \\Server\noritz\MPS\Shuju.mdb D:\计画数据\&Date&".mdb" 中D:\计画数据\&Date&".mdb"的目标文件夹怎样写？？？

作者: 海狸先生 时间: 2006-3-9 05:29
你这个DOS命令写在代码中的吗？

作者: zyz218 时间: 2006-3-9 19:43
[attach]16286[/attach]
<IMG>

写在一个批处理文件中，开机时用WINDOWS任务计画自动执行这个文件，通过文件中的命令按当日日期名来备份数据后台那一个文件！在下觉得这样比较好，其它前台、工作组信息文件如果有修改则备份一次就行了，后台天天备份，那天数据弄错了或丢失了，粘贴过去就行了，不知这样对不对，但DOS命令没写对，特求助：）

作者: 海狸先生 时间: 2006-3-9 21:54
copy 命令不支持变量吧

作者: zyz218 时间: 2006-3-10 03:33
原来这样啊！！谢谢，不然在下还天天在想这个问题！！！！！！！！！

这是在下在EXCEL中用到的方法：

Private Sub Deleteit()

If Dir("D:\生产计画\") = "" Then
MkDir "D:\生产计画"
End If

If Dir("D:\生产计画\" & Date & ".xls") <> "" Then
Kill "D:\生产计画\" & Date & ".xls"
End If

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call Deleteit
ActiveWorkbook.Save
ActiveWorkbook.SaveAs "D:\生产计画\" & Date & ".xls"

End Sub

[此贴子已经被作者于2006-3-9 19:35:48编辑过]

作者: zyz218 时间: 2006-3-10 16:36
不知在ACCESS中可否实现？

DoCmd.CopyDatabaseFile "\\Server\noritz\MPS\Shuju.mdb",OverwriteExistingFile:=True,DisconnectAllUsers:=True
这样也不行，没有目标文件与文件名，看来DoCmd.CopyDatabaseFile 也不行？？？

作者: 海狸先生 时间: 2006-3-10 18:27
FileCopy source, destination

作者: zyz218 时间: 2006-3-10 23:46
模块：
Public Function Deleteit()
'建立文件夹
If Dir("D:\ProducePlan\") = "" Then
MkDir "D:\ProducePlan"
End If
'删除已存在的文件
If Dir("D:\ProducePlan\" & Date & ".xls") <> "" Then
Kill "D:\ProducePlan\" & Date & ".xls"
End If
End Function

当主窗体关闭时：
Private Sub Form_Close()
Call Deleteit
End Sub

以上可实现在D盘建立一个名为ProducPlan的文件夹，异名拷贝文件还实现不了！！！海狸先生的方法：Dim SourceFile, DestinationFile

SourceFile = "SRCFILE" ' Define source file name.

DestinationFile = "DESTFILE" ' Define target file name.

[b]FileCopy[/b] SourceFile, DestinationFile ' Copy source to target.

复制代码
不能指定文件，好像还达不到目的，对吗？
复制代码

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