Vbscript 如何将.txt文件从重命名中排除？

下面的代码做两件事，查看特定文件中的所有文件，确定文件是否具有.pdf扩展名。如果任何文件没有，它会修复扩展名，然后将所有文件移动到另一个文件夹

到目前为止，这个脚本做得非常好

问题是，此列表中始终包含3个扩展名为.txt的文件，我们不希望更改这些文件的扩展名，也不希望移动它们

这些文件称为index.txt、pending.txt和tableofcontents.txt

这可能吗

这是我到目前为止的代码，并提前感谢了很多

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set pdfFolder = FSO.GetFolder( "E:\LOCS\FTP\Current\")  

For Each fil In pdfFolder.Files 
     ' check each file to be sure it fits the pattern 
     fname = fil.Name 
     suffix = LCase( Right( fname, 4 ) ) 
     'prefix = Left( fname, 8 ) 
     ' so suffix has to be right: 
     If  suffix = ".pdf" Then 
         newName = Mid( fname, 9 ) 
        ' Response.Write "Renaming '" & fname & "' to '" & newName & "'<br/>" & vbNewLine 
         fil.Move "E:\DOCs\PermLoc\" & newName 
     End If 
Next 

Set FSO=CreateObject（“Scripting.FileSystemObject”）
设置pdfFolder=FSO.GetFolder（“E:\LOCS\FTP\Current\”）
对于pdfFolder.Files中的每个fil
'检查每个文件，确保其符合模式
fname=fil.Name
后缀=LCase（右（fname，4））
'前缀=左（fname，8）
“所以后缀必须是正确的：
如果suffix=“.pdf”，则
newName=Mid（fname，9）
'响应。将“重命名”&fname&“写入”&newName&“'
”&vbNewLine
文件移动“E:\DOCs\PermLoc\”&newName
如果结束
下一个

尝试设置断点并单步执行代码，以查看正在比较哪些后缀，以及“.txt”=“.pdf”是否返回true并输入if语句。

您的脚本对.txt文件没有任何作用！抱歉，我测试了错误的脚本。我真诚的道歉并感谢您的及时回复。