简单的服务器文件备份办法压缩文件名自动按日期命名
dim FileName,WshShell,fs,MyCommandFileName=cstr(now)+".RAR"
MyCommand="rar a "+FileName+" 要压缩的文件名或目录名"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fs=CreateObject("Scripting.FileSystemObject")
if fs.fileExists(FileName) then
fs.DeleteFile FileName,true
end
if WshShell.run MyCommand
将以上文件另存为一个 .VBS添加计划任务按你说需要的时间运行.vbs 如每个礼拜一次
或每个月一次等计划任务会自动压缩你指定的目录.生成一个日期文件名.rar
您可能感兴趣的文章:
- 用VBSrcipt判断是否是日期
- 用vbs实现按创建日期的顺序列出一个文件夹中的所有文件
- 用vbs判断一个日期是否在指定的时段内
- vbs下通过日期查找文件夹的代码
- VBS的字符串及日期操作相关函数
- 用VBS修改（设置）系统时间和日期的代码
- vbs获取当前时间日期的代码
- 使用VBS获取当前日期的前一天 并修正输出格式
本文由 华域联盟 原创撰写：华域联盟 » 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
转载请保留出处和原文链接：https://www.cnhackhy.com/14925.htm
