Vbscript / Files And Folders / Cleanup Filenames
Set objFSO = CreateObject("Scripting.FileSystemObject") defaultStrings = "Tarvin,ShareReactor,DVDRip,osloskop net,c00Ldude,shareprovider,www descargasweb net,Kleppe,-Diamond,Anbc,RFta,DVD,PUKKA,Dvl,iNT-JUPiT,www descargasweb net,Dv-Saphire,Mp3-Eastshare,Eastshare,Cimg,TS-maVen,LioNetwork Net,LiNE,LiMiTED,Zetor,Www!Osiolek!Com,TLF,Xvid,www the-realworld de,Full Movie,divx,XVid,AC3,MPT,pdtv,encoded,--,- -,- -,3Lm,Afldd,Fts,Deity,gowenna,sfm,xiv,Correlation,biztype,soss,drdan911" current = objFSO.getAbsolutePathName(".") targetPath = InputBox("Enter the path of the target folder:","Target Folder",current) If targetPath = "" Then Wscript.Quit End If deletes = InputBox("Add strings to delete. Separate with a comma (,) and do not add spaces unless intended.","Strings to Delete", defaultStrings) 'deletes = defaultStrings & "," & delete If deletes = "" Then Wscript.Quit End If Set objFolder = objFSO.GetFolder(targetPath) fileRename objFolder Sub fileRename(folder) 'Loop through the files in the folder For Each objFile In folder.Files filename = objFile.Name ext = objFSO.getExtensionName(objFile) safename = Left(filename, Len(filename) - Len(ext) - 1) 'General Name Operations safename = Replace(safename, "."," ") safename = Replace(safename, "_"," ") safename = Replace(safename, "[","- ") safename = Replace(safename, "]"," -") safename = Replace(safename, "(","- ") safename = Replace(safename, ")"," -") safename = Replace(safename, ","," -") delStrings = Split(deletes, ",") For Each delString in delStrings 'Replace specified string (Once, case insensitive) If delString <> "" Then safename = Replace(safename, delString,"",1,1,1) End If Next If Right(safename,1) = "-" Then 'WScript.Echo Left(safename,Len(safename)-1) safename = Left(safename,Len(safename)-1) End If safename = trim(safename) On Error Resume Next 'Only rename if new name is different to original name If filename <> safename & "." & ext Then 'Uncomment the line below to prompt before each rename (kill the process to exit) 'Wscript.Echo "Renaming " & vbCRLF & objFile.Name & " to " & vbCRLF & safename & "." & ext objFSO.MoveFile objFile.Path, objFile.ParentFolder.Path & "" & safename & "." & ext End If If Err.Number <> 0 Then WScript.Echo "Error renaming: " & filename.path & "Error: " & Err.Description Err.Clear End If Next 'Uncomment lines below to act on files in all subfolders 'For Each Subfolder In folder.SubFolders 'fileRename Subfolder 'Next End Sub Wscript.echo "Done"
Please note that a disclaimer applies to any code on this page.
|