Question

用VBS 或批处理 写一个 计算文件/文件夹 大小的小程序 单位MB 并输出到c:\text1.txt内

Answer 1

set open=createobject("scripting.filesystemobject")
str=inputbox("请输入文件(夹)名称或文件(夹)完整路径:",wscript.scriptname)
if open.fileexists(str) then
f1=open.getfile(str).size
if f1<=1024 then
sum=f1/1024
t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
else
if f1<=1024^2 then
sum=f1/1024^2
t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
else
sum=f1/1024^2
t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
end if
end if
else
f2=open.getfolder(str).size
if f2<=1024 then
sum=f2/1024
t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
else
if f2<=1024^2 then
sum=f2/1024^2
t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
else
sum=f2/1024^2
t=split(sum,".")(0)&"."&left(split(sum,".")(1),2)
end if
end if
end if
msgbox round(t,2)&" MB",64,wscript.scriptname
'保存为vbs类型文件

Answer 2

E:\>for /f "tokens=3" %i in ('dir/s/-c c:\test^|findstr File^(s^)') do set /a a=%i/1024>c:\test1.txt
只计算文件大小或合计，与实际占用磁盘空间差别较大。

Answer 3

set wshshell=createobject("wscript.shell")
wscript.sleep 这里输入时间间隔，一秒就输入1000
wshshell.sendkeys""
wscript.quit

Answer 4

-_-。sorry！收到你的求助，很想帮一下，但由于本人也在学习中，目前水平太低，爱莫能助了。。。