0

以下のコードは2つのことを行い、特定のすべてのファイルを調べて、ファイルの拡張子が.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

ブレークポイントを設定し、コードをステップ実行して、比較されているサフィックスを確認し、「。txt」=「.pdf」がtrueを返し、Ifステートメントを入力しているかどうかを確認してください。

于 2012-06-01T13:05:55.733 に答える