批處理 重命名 PDF文件

'批量重命名文件，很好使~，保存成vbs格式，設定初始目錄

strFolder = "G:\Java初級教程\" '初始目錄

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strFolder)

Set colFiles = objFolder.Files

For Each strFile in colFiles

If Lcase(objFSO.GetExtensionName(strFile)) = "pdf" Then

strNewName = Replace(strFile.Name, "_", "")

objFSO.MoveFile strFile, strFolder & "\" & strNewName

End If

Next

Set objFSO = Nothing

上一篇:手機打字怎麽加空格？

下一篇:matlab圖像模糊的辦法有哪些？急急急 ~！在線等~！