My First VB Script to rename folder names.
This script helped to rename and arrange movie files and movie folders in external hard disk.
Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder = "i:\Movies"
Set objFolder = objFS.GetFolder(strFolder)
For Each Folder In objFolder.SubFolders
strFolderName = Folder.Name
if InStr(strFolderName,"[DVD~RIP]") <> 0 Then
WScript.StdOut.WriteLine "Inside if"
WScript.StdOut.WriteLine strFolderName
strFolderName = Replace(strFolderName, "[DVD~RIP]", "")
Folder.Name=strFolderName
End If
Next