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

这个论坛怎么这么冷清，我发个帖子都没人会，呜呜~

稍安勿躁好不好，没有人一天24个小时都呆在论坛，等着帮你解决问题。

2013-2-27 下午 07_08_46_文本1.txt

你修改过了文件格式是 日期 + 空格 + 时间 + 原文件名

那么，你取到文件名时，以空格为分隔，取第一段，应该就是一个日期。
你把这个字串，也就是 2013-2-27 判断一下是不是 一个日期 ，如果是，那么说明这个文件有日期在前面，就不改了。
如果不包含空格，或者第一个空格前面的内容不是日期，那就 改名吧。

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

strFile.Name
你取的文件名是这个。

dim s as string
dim s2 as string
dim b as boolen
s=strfile.name
b=true
if instr(1,s," ")>0 then        '包含空格
   s2=left(s,instr(1,s," "))
   if isdate(s2) then      '包含日期，设置为不处理
      b=false
   end if
end if

if b then   '接原来的加日期处理
        arrtime=split(now,":")
    strNewName=join(arrtime,"_") & strFile.Name
       objFSO.MoveFile strFile, strFolder & "\" & strNewName
end if

浏览器写的代码，自己测试

刚好有点时间，顺便把你那问题解答一下。整个代码如下：

'文件移动小例子
'小松鼠QQ：775420425

Const strFolder As String = "d:\SWbackup_1049\log\"

Private Sub Command1_Click()
  Dim objFSO As Scripting.FileSystemObject
  Dim objFolder As Scripting.Folder
  Dim colFiles As Scripting.Files
  Dim colFile As Scripting.File
  Dim strFile As String, strNewName As String, arrtime() As String
  Dim bz As Boolean
  Dim objReg As RegExp
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strFolder)
  Set colFiles = objFolder.Files
  Set objReg = New RegExp
  For Each colFile In colFiles
    If LCase(objFSO.GetExtensionName(colFile.Name)) = "txt" Then
      bz = False
      objReg.Pattern = "\d{4}-\d{1,2}-\d\s\d{1,2}_\d{1,2}_\d{1,2}_\w+"  '文件名格式
      arrtime = Split(Now, ":")
      strFile = Join(arrtime, "_") & "_"
      strNewName = strFolder & strFile & colFile.Name  '组合成新文件名
      bz = objReg.Test(colFile.Path)
      If bz = False Then    '如果文件没有改名，则执行移动
        objFSO.MoveFile colFile.Path, strNewName
        strFile = ""
        strNewName = ""
      End If
    End If
  Next
  Set objReg = Nothing
  Set colFile = Nothing
  Set colFiles = Nothing
  Set objFolder = Nothing
  Set objFSO = Nothing
End Sub

由于在执行移动之前，要先判断是否是已经改好名称的文件，是则不执行移动，否则则移动文件。但是由于你修改后的文件名格式比较复杂，是诸如“日期 时间 原文件名.txt”这样的格式。所以为了更好地判断这样的文件格式，我在代码中使用了正则表达式来处理，以确保不产生误判。
但是请注意，我在代码中提供的正则表达式不支持中文文件名。即如果你原来的文件是中文文件名，则已修改了文件名的文件，代码仍然会把它看成是没有修改文件名，依旧会对它改名。
我代码中的正则表达式匹配的文件名格式是象"2013-8-1 21_32_45abc.txt"这样的，其中的"abc"即是原来的文件名，可以是任意多个不是中文的英文文件名。具体情况只要你运行一下我的代码，就一目了然。






[ 本帖最后由 hjxlj 于 2013-8-1 21:47 编辑 ]

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

我知道了，因为我的代码使用了正则表达式。所以要正常运行我的代码，你必须先引用正则表达式库。方法是在VB主菜单中单击"工程"菜单，然后再单击"引用(N)..."子菜单，接下来在弹出的"引用"对话框"中，选中正则表达式的引用库即可，如下图所示：

图中蓝底白字的这一项就是正则表达式的引用库，确保其前面小方框内有个小勾，即表示引用了这个库。点"确定"按钮关闭这个对话框后，再运行代码即可正常工作。

[ 本帖最后由 hjxlj 于 2013-8-6 00:02 编辑 ]

嗯啊，可以了，谢谢大虾