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
目前还没有评论