VBScript重命名文件夹中具有特定前缀的文件

我已经成功创建了一个VBScript，当文件是文件夹中唯一的文件时，它可以根据需要重命名该文件。我不知道如何让脚本搜索超过最近的文件

 Option Explicit

 Dim fso, folder, file,  tmFile
 Dim folderName

 folderName     = "\\pcc\Int\PC\Inbox\"

 Set fso = CreateObject("Scripting.FileSystemObject")  
 Set folder = fso.GetFolder(folderName)  
 Set tmFile = Nothing

 For each file In folder.Files    

 If (tmFile is Nothing) Then 
     Set tmFile = file
     Exit For
 End IF

 Next

 If InStr(tmfile.name, "TM") Then
     TmFile.Name = Replace(tmFile.Name, ".txt", "A.txt")
 End if

上面的脚本正确地重命名了文件

这里有一些修改，我试图通过文件夹中的所有文件来搜索前缀为TM的文件。这将始终是唯一具有TM前缀的文件

 For Each InStr(tmFile.name, "TM")  Then 
    tmFile.Name = Replace(tmFile.Name, ".txt", "A.txt")
 Exit for

及

---

您的

instr（）

已接近完成，只是您需要将该测试放在现有的

For

循环中：

Option Explicit

 Dim fso, folder, file,  tmFile
 Dim folderName

 folderName     = "\\pcc\Int\PC\Inbox\"

 Set fso = CreateObject("Scripting.FileSystemObject")  
 Set folder = fso.GetFolder(folderName)  

 For each file In folder.Files  
     If instr(file, "TM") > 0 THEN
         file.name = replace(file.name, ".txt". "A.txt")
     End IF
 Next

---

我删除了

tmfile

变量，因为这里根本不需要它。

谢谢！就这样，我下次会知道的。我感谢你的帮助

Option Explicit

 Dim fso, folder, file,  tmFile
 Dim folderName

 folderName     = "\\pcc\Int\PC\Inbox\"

 Set fso = CreateObject("Scripting.FileSystemObject")  
 Set folder = fso.GetFolder(folderName)  

 For each file In folder.Files  
     If instr(file, "TM") > 0 THEN
         file.name = replace(file.name, ".txt". "A.txt")
     End IF
 Next