Dim fs,fo,a,text,b Set fs=CreateObject("Scripting.FileSystemObject") text=inputbox("Enter your folder path:", "parentfolder") if text = "" then wscript.Quit end if set fo=fs.GetFolder(text) for each a in fo.SubFolders temp=a.Name text=inputbox("You want to change " & vbcrlf &temp & " to:", "Rename folder", ""& temp &"") if text="" then wscript.quit elseif text=temp then b=0 else a.Name=text end if next set fo=nothing set fs=nothing