求助大虾,这里有一段获取当前时间的代码,改一下就行!谢谢
CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)'此命令获取当前时间
strFolder = "d:\SWbackup_1049\log\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
For Each strFile in colFiles
If Lcase(objFSO.GetExtensionName(strFile)) = "txt" Then
arrtime=split(now,":")
strNewName=join(arrtime,"_") & strFile.Name
objFSO.MoveFile strFile, strFolder & "\" & strNewName
End If
Next
Set objFSO = Nothing
'文件更名脚本,参数time时间,now日期
------------------------------------------------------------------
上边就是获取当前时间,给txt文本重命名的代码!格式是这样:“文本1.txt”变成“2013-2-27 下午 07_08_46_文本1.txt”
求助大虾,现在是执行一次重命名一次,想要的效果是。。。改过的文件名 再执行它将不会改动(否则会有N多个时间,文件名会乱)