VBE/VBS计算文件夹大小，帮帮忙！

Question

如何计算IE缓存文件里的总大小（路径"%userprofile%\Local Settings\Temporary Internet Files\*.*" ）
要求以对话框的形式运行，上方自动显示IE缓存文件夹的大小（单位MB），下方是一个确定按钮，按了以后就退出。
还算简单的吧？？？帮帮忙！！！

Answer 1

set shell=createobject("wscript.shell")
set open=createobject("scripting.filesystemobject")
set folder=open.getfolder(Envision("userprofile")&"\Local Settings\Temporary Internet Files\")
public function Envision(byval Val)
envision=shell.environment("Process").item(val)
if lcase(val)=lcase("cd") then envision=open.getfolder(".")
end function
sized=split(folder.size/1024^2,".")
sc=left(sized(1),3)
if right(sc,2)<>99 then
if mid(sc,3,1)>=5 then sc=left(sc,1)&mid(sc,2,1)+1 else sc=left(sc,2)
if right(sc,1)>=5 then sc=left(sc,1)+1 else sc=left(sc,2)
else
sc=left(sc,1)+1
end if
shell.popup sized(0)&"."&sc&" MB",5,wscript.scriptname,64 '5秒后自动退出
'保存为vbs类型文件