週に1回受け取るPDFファイルがたくさんあります。
これらのファイルの中には、拡張子が間違っているか、まったくないものがあります。
file1.pdd、file.ptfなどのような場合もあります
以下のスクリプトは、すべてのファイルを調べて、拡張子が.pdfでないファイルを探すことになっています。
見つかった場合は、正しい拡張子で修正してください。
たとえば、コードはfiled.pddをfile1.pdfに変更する必要があります。
拡張機能を修正した後、ファイルを別の場所に移動します。
拡張機能を修正しておらず、ファイルを移動していません。
どんな助けでも大歓迎です。
Set FSO = CreateObject("Scripting.FileSystemObject")
Set pdfFolder = FSO.GetFolder( "C:\Folder1\Subfolder\")
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, prefix has to have two slashes, and prefix has to be a date:
If UBound( Split(prefix,"/") ) = 2 AND IsDate(prefix) AND suffix = ".pdf" Then
newName = Mid( fname, 9 )
' Response.Write "Renaming '" & fname & "' to '" & newName & "'<br/>" & vbNewLine
fil.Move "E:\Folder2\Fixed\" & newName
End If
Next