使用VBScript重命名文件夹中的特定前缀

Question

我已经成功创建了一个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 

和

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

Answer 1

你接近你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变量，因为它在这里根本不需要。