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多个时间，文件名会乱）

嗯啊，就是这个意思，请问该怎么改一下呢？？谢谢

大虾。。。您这个代码有报错。。。

嗯啊，可以了，谢谢大虾