terse

回复 8# CrLf
这里显示的和右键一致
不清楚楼主是否要显示子目录 如显示子目录 dir 加参数 /s

CrLf

回复 7# terse


    dir 显示的是不含子目录的大小吧

terse

回复 4# wang5185244
纯p效率够不

@echo off&setlocal enabledelayedexpansion
set m=1048576
(for /f "tokens=*" %%i in ('dir /ad /b') do (
    set size=000
    for /f "eol=0tokens=3" %%j in ('dir /s/a/-c "%%i" 2^>nul^| findstr /i "个文件.*字节$"') do set "size=%%j00"
    if !size! geq 102400 (
       if !size! geq 104857600 (
          set s=MB
          set t=!size!
          set len=!t:~9!98765432100
          set /alen=9+!len:~10,1!
          set/a "r=!t:~,8!%%m,size=!t:~,8!/m"
          for /l %%j in (8 1 !len!) do (
              set/a "q=!r!!t:~%%j,1!/m,r=!r!!t:~%%j,1!%%m"
              set "size=!size!!q!"
          )
          if !size! geq 102400 set s=GB&set /asize/=1024
       ) else set s=KB&set /asize/=1024
    ) else set s=Byte
    echo %%i !size:~,-2!.!size:~-2! !s!
))>DIR_.TXT
start "" DIR_.TXT
复制代码

CrLf

个人喜欢用 SpaceSniffer 查看目录大小，直观、方便，可惜好像没有命令行下的代替工具

terse

回复 4# wang5185244
加个判断试试呢
系统文件夹还是权限不够

@if(0)==(0) echo off
CScript.exe /NoLogo /E:JScript %0 >_dir.txt
pause & exit
@end
var n=1024,m=1048576,fso=new ActiveXObject("Scripting.FileSystemObject");
var Folder=fso.GetFolder(WScript.Arguments.Count()?WScript.Arguments.Item(0):".");
for(var e=new Enumerator(Folder.SubFolders);!e.atEnd();e.moveNext()){
   var f=e.item();
   if (f.Name!='System Volume Information') {
     if(!(f.attributes%2)){
       var Size=f.size;
       switch(true){
          case Size<n :
             var s = Size + ' Byte';
             break; 
          case Size<m :
             var s = (Size/n).toFixed(2) + ' KB';
             break;   
          default :
             var s = (Size/m).toFixed(2) + ' MB';
       }
       WScript.Echo(f.Name+'\t' + s);
     }
   }
}
复制代码

wang5185244

回复 3# terse


大神，运行出现这错误，什么原因啊~怎么输出结果

terse

@if(0)==(0) echo off
CScript.exe /NoLogo /E:JScript %0
pause & exit
@end
var n=1024,m=1048576,fso=new ActiveXObject("Scripting.FileSystemObject");
var Folder=fso.GetFolder(WScript.Arguments.Count()?WScript.Arguments.Item(0):".");
for(var e=new Enumerator(Folder.SubFolders);!e.atEnd();e.moveNext()){
   var f=e.item();
   var Size=f.Size;
   switch(true){
      case Size<n :
         WScript.Echo(f.Name,'\t' + Size,' Byte');
         break; 
      case Size<m :
          WScript.Echo(f.Name,'\t' + (Size/n).toFixed(2),' KB');
          break;   
      default :
          WScript.Echo(f.Name,'\t' + (Size/m).toFixed(2),' MB');
   }
}
复制代码

CrLf

这个用 vbs 比较快：

http://bbs.bathome.net/viewthread.php?tid=25682
复制代码