0

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

到目前为止，这个脚本做得很好。

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

这些文件称为 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
4

1 回答 1

1

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

于 2012-06-01T13:05:55.733 回答