以日期時間重命名文件的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