以日期时间重命名文件的vbs脚本代码

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