My First VB Script to rename folder names.
This script helped to rename and arrange movie files and movie folders in external hard disk.
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
