Set fso = CreateObject("Scripting.FileSystemObject")
' 脚本的作用:将文件按照文件修改时间保存成一个新版本的备份,版本号为修改日期时间。修改时间没有变化的,文件将覆盖,不生成新文件。
' 使用方法:将需要生成备份的一个或多个文件拖入vbs图标。
' 注意:以文件名称中的"v"作为分割符号,"v"后面的内容将更改为文件最近修改时间。文件名中没有"v"的,整个文件名改为最近修改时间。
vip_word = "v"
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
oldfile = objArgs(I)
folder = fso.GetParentFolderName (objArgs(I))
ExtensionName = fso.GetExtensionName(objArgs(I))
oldname = fso.GetFile(objArgs(I)).Name
' 因为文件名字中不能包含“/:”符号,在此处做替换。
newnamepart = left(oldname, InStr(oldname, vip_word)) & Replace(Replace(fso.GetFile(objArgs(I)).DateLastModified, "/", "-") ,":", ".")
newfile = folder & "\" & newnamepart & "." & ExtensionName
fso.copyFile oldfile,newfile
Next
Set fso = Nothing