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