DOS命令

zyz218

copy \\Server\noritz\MPS\Shuju.mdb D:\计画数据\&Date&".mdb"

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

fan0217

是备份数据库吗？那就看看这里：http://www.office-cn.net/forum.php?mod=viewthread&tid=16410&replyID=&skin=1

zyz218

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

海狸先生

你这个DOS命令写在代码中的吗？

zyz218

<IMG>

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

海狸先生

copy 命令不支持变量吧

zyz218

原来这样啊！！谢谢，不然在下还天天在想这个问题！！！！！！！！！

这是在下在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

不知在ACCESS中可否实现？

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

海狸先生

FileCopy source, destination

zyz218

模块：
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的文件夹，异名拷贝文件还实现不了！！！海狸先生的方法：

1. Dim SourceFile, DestinationFile
   
   
2. SourceFile = "SRCFILE"    ' Define source file name.
   
   
3. DestinationFile = "DESTFILE"    ' Define target file name.
   
   
4. [b]FileCopy[/b] SourceFile, DestinationFile    ' Copy source to target.
   
   

复制代码

1. 不能指定文件，好像还达不到目的，对吗？

复制代码