On Error Resume Next
If Dir(ThisWorkbook.Path & "\备份\", vbDirectory) = "" Then '如果 备份 文件夹不存在，则创建
MkDir ThisWorkbook.Path & "\备份\"
End If
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\备份\" & ThisWorkbook.Name '将本文件另存一份copy到 备份 文件夹。文件存在就不提示。
Kill ThisWorkbook.Path & "\备份\" & Format(Now(), "YYYYMMDD.xl\s") '删除 日期.xls 文件
Err.Clear
Name ThisWorkbook.Path & "\备份\kaobei.xls" As ThisWorkbook.Path & "\备份\" & Format(Now(), "YYYYMMDD.xl\s") 'kaobei.xls 文件重命名为 日期.xls
End Sub
vba里面有文件操作的函数和命令，不需要使用命令行命令。上面的代码给你参考。
