vbscript-變更目錄名稱

'為廠務部工程組解決目錄名稱變更用
'建立日期2008.02.19 版本01 建立人:緯哥
'建立物件
set FOS = Createobject("Scripting.FileSystemObject")
'設定路徑與目錄名稱
apath = "D:\E-MAIL"
bpath = "D:\NEW-E-MAIL"
cpath = "D:\OLD-E-MAIL"
'判斷目前目錄名稱是否有NEW-E-MAIL
if FOS.FolderExists(bpath) then
FOS.GetFolder(apath).Name = "OLD-E-MAIL"
FOS.GetFolder(bpath).Name = "E-MAIL"
else
FOS.GetFolder(apath).Name = "NEW-E-MAIL"
FOS.GetFolder(cpath).Name = "E-MAIL"
end if
'釋放物件
set FOS = Nothing