[文本处理] 批处理如何提取文件夹大小并输出？

wang5185244

提取路径下文件夹大小
我知道%%~Z是文件大小
怎么批处理提取文件夹大小啊

CrLf

这个用 vbs 比较快：

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

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');
   }
}
复制代码

wang5185244

回复 3# terse


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

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);
     }
   }
}
复制代码

CrLf

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

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

回复 7# terse


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

terse

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

CrLf

回复 9# terse


    xp 和 win7 下测试都只是当前目录下的文件大小总和呀

terse

回复 10# CrLf
难道环境问题？
我这里WIN7 和 XP 都正常显示

CrLf

回复 11# terse


    我对 %windir% 运行了一下兄台的脚本，返回的是

addins 0.00 Byte
AppCompat 0.00 Byte
AppPatch 0.00 Byte
assembly 0.00 Byte
BitLockerDiscoveryVolumeContents 0.00 Byte
Boot 0.00 Byte
Branding 0.00 Byte
CSC 0.00 Byte
Cursors 0.00 Byte
debug 0.00 Byte
diagnostics 0.00 Byte
DigitalLocker 0.00 Byte
Downloaded Program Files 0.00 Byte
EasyRecovery 0.00 Byte
en-US 0.00 Byte
Fonts 0.00 Byte
Globalization 0.00 Byte
Help 0.00 Byte
IME 0.00 Byte
inf 0.00 Byte
Installer 0.00 Byte
L2Schemas 0.00 Byte
LiveKernelReports 0.00 Byte
Logs 0.00 Byte
Media 0.00 Byte
Microsoft.NET 0.00 Byte
Minidump 0.00 Byte
ModemLogs 0.00 Byte
NU_DATA 0.00 Byte
Offline Web Pages 0.00 Byte
Panther 0.00 Byte
PCHEALTH 0.00 Byte
Performance 0.00 Byte
PLA 0.00 Byte
PolicyDefinitions 0.00 Byte
Prefetch 0.00 Byte
pss 0.00 Byte
Registration 0.00 Byte
RemotePackages 0.00 Byte
rescache 0.00 Byte
Resources 0.00 Byte
SchCache 0.00 Byte
schemas 0.00 Byte
security 0.00 Byte
ServiceProfiles 0.00 Byte
servicing 0.00 Byte
Setup 0.00 Byte
ShellNew 0.00 Byte
SoftwareDistribution 0.00 Byte
Speech 0.00 Byte
SUA 0.00 Byte
Sun 0.00 Byte
system 0.00 Byte
System32 0.00 Byte
TAPI 0.00 Byte
Tasks 0.00 Byte
temp 0.00 Byte
tracing 0.00 Byte
twain_32 0.00 Byte
Vss 0.00 Byte
Web 0.00 Byte
WICCodecs 0.00 Byte
winsxs 0.00 Byte
zh-CN 0.00 Byte
复制代码

terse

回复 12# CrLf
先谢CrLf兄的测试
我这边同样%windir%测试正常 猜测是环境问题 难道CrLf兄 不是中文环境？那样的话 FINDSTR 搜索关键词 有问题

CrLf

回复 13# terse


是中文环境，这是 dir /a /-c %windir% 输出内容的末尾部分

              63 个文件       10527174 字节
              66 个目录     5462437888 可用字节
复制代码

terse 兄那边能直接获取整个文件夹的大小倒是让我感觉非常怪异，因为昨天搜了一下，好像没有直接获取目录大小的手段，连 api 都没有，看到的方案都是遍历
如果 dir 是以逐层遍历的办法合计文件夹的总大小，速度应该很慢才是，那 dir /s 的时候岂不是慢得恐怖了
如果我来设计 cmd.exe，也不会默认返回子文件总字节数，最多提供一个可选开关来让用户自行启用
另，我的磁盘格式是 ntfs

523066680

以前写过一个挺繁琐的脚本，列出当前子目录大小，可以通过编号选择
进入某个目录继续列举进一层的目录大小。我用来辅助寻找较大的目录。可能有些不精准的地方吧

::Show Each Folder Size with Percent
::     via 523066680, 2013-08
::维护记录:
::1、文件夹名称里存在"%"时被脱逸而导致的错误
::2、截取的一兆以上的Size进行*1000000/(1024*1024)
::3、输入open 或者open 编号，打开当前或者对应目录

@echo off
setlocal enabledelayedexpansion
set "back= "
for /l %%a in (1,1,8) do (
    set back=!back!!back!
)
echo 注：以下统计仅为数值截取的大致结果。

:start
 echo 当前目录："%cd%"
 for /f "tokens=1" %%a in ('dir /ad ^|find "个目录"') do (
     set all=%%a
 )
 if "%all%"=="2" (echo 没有子目录，返回上一层 &cd .. &goto :input)

 ::关键变量初始化
 set /a i=0, Si[0]=0

 ::逐个调用
 for /f "tokens=*" %%a in ('dir /ad /b') do (
   set TPath=%%a
   call :deal
 )

 call :ShowDetail
 pause
 exit
 
:deal
  set /a i+=1, ia=i-1, ix=i*100/all
  set /p inp=!back!%ix%%% "!TPath!" <nul
  
  for /f "tokens=3" %%a in ('dir /a /-c /s "!TPath!" ^|find " 个文件"') do (
      set bytes=000000000000%%a
      set bytes=!bytes:~-12!
      set MB=%%a
  )
  if "%MB:~6%"=="" (
      set MB=    ^<1
  ) else (
      set /a RealMB=!MB:~0,-6!*1000/1024*1000/1024
      set MB=      !RealMB!
  )
  rem 对齐
  set MB=!MB:~-6!

  
  rem 插入排序
  for /l %%a in (%ia%,-1,0) do (
      set /a A2=%%a+1
      if !bytes! lss !Si[%%a]! (
  	set Si[!A2!]=!Si[%%a]!
  	set Sj[!A2!]=!Sj[%%a]!
        set Sk[!A2!]=!Sk[%%a]!
      ) else (
  	set Si[!A2!]=!bytes!
  	set Sj[!A2!]=!TPath!
        set Sk[!A2!]=!MB!
  	goto :Out
      )
  )
  :Out
  goto :eof

:ShowDetail
  set /p inp=%back%<nul
  for /l %%a in (1,1,%i%) do (
      echo %%a	!Sk[%%a]! MB  !Sj[%%a]!
  )
  echo,
  :input
  set "input="
  set /p input=进入某目录请输入对应编号（exit退出）:
  if "%input%"=="exit" (exit)
  if "%input%"=="prev" (cd .. &goto :start)
  if "%input:~0,4%"=="open" (
      if "%input:~4%"=="" (
          start explorer "%cd%"
      ) else (
          if defined Sj[%input:~5%] ( 
              start explorer "!Sj[%input:~5%]!"
          ) else (
              echo 请输入正确的编号
          )
      )
      goto :input
  )
  if not defined Si[%input%] (
      echo 输入错误
      goto :input
  ) else (
      set next=!Sj[%input%]!
  )
  cd %next%
  goto :start
复制代码

示例目录 Dev-Cpp ，过程中带简单的扫描进度显示：

───────────┐
当前目录："D:\Dev-Cpp"│
23% "Help"            │
───────────┘

────────────────────┐
                                        │
注：以下统计仅为数值截取的大致结果。    │
当前目录："D:\Dev-Cpp"                  │
1           <1 MB  Packages             │
2           <1 MB  Templates            │
3           <1 MB  Examples             │
4           <1 MB  Icons                │
5           <1 MB  Lang                 │
6           <1 MB  Help                 │
7            1 MB  mingw32              │
8            5 MB  include              │
9            7 MB  libexec              │
10          10 MB  bin                  │
11          21 MB  lib                  │
                                        │
进入某目录请输入对应编号（exit退出）:11 │
当前目录："D:\Dev-Cpp\lib"              │
1           <1 MB  gcc                  │
2            5 MB  debug                │
                                        │
进入某目录请输入对应编号（exit退出）:   │
────────────────────┘