[文件操作] 批处理获取子文件夹大小并添加到文件夹名前

@echo off
set "dir=./"
set /a KB=1024
set /a MB=1024*1024
set /a GB=1024*1024*1024
set /a TB=1024*1024*1024*1024


rem 注意这里我使用%curr_dir%来代替%cd%的原因是： 
rem 当批处理本身位于C: D: E:等根目录下时，%cd% 的结果是 C:\ D:\ E:\ 有个反斜杠在这里，导致del /f /s /q %cd%\dir.txt的时候提示  "文件名、目录名或卷标语法不正确。"
rem 这样导致批处理的兼容性比较差，所以：
rem 使用%0来提取当前批处理的路径，%curr_dir% 就没有这个问题。
echo current dir is %cd%;
for %%i in (%0) do (set curr_dir=%%~dpi)
echo current dir is %curr_dir%;


echo "请选择要计算的目录类型，1是只取第一层目录，2是递归当前目录，默认是第一层目录"
set /p "dir_type="
if NOT DEFINED dir_type echo "dir_type is Null" && dir /a:d /b    "%dir%"  | sort /r> "%curr_dir%directory.txt"  && goto continue_calc
if %dir_type% EQU 1     echo "dir_type is 1"    && dir /a:d /b    "%dir%"  | sort /r> "%curr_dir%directory.txt"
if %dir_type% EQU 2     echo "dir_type is 2"    && dir /a:d /b /s "%dir%"  | sort /r> "%curr_dir%directory.txt"


:continue_calc

del /f /s /q "%curr_dir%calc_1.vbs" >nul 2>nul
del /f /s /q "%curr_dir%dir_size.txt" >nul 2>nul
del /f /s /q "c:\vbs_result.txt" >nul 2>nul



rem 使用vbs脚本创建一个简单的除法计算器。	
 
echo  Dim a1,a2,a3                                            > "%curr_dir%calc_1.vbs"
echo  Dim str1                                                >>"%curr_dir%calc_1.vbs"
echo  Dim a(2)                                                >>"%curr_dir%calc_1.vbs"
echo  Dim i                                                   >>"%curr_dir%calc_1.vbs"
echo  i=0                                                     >>"%curr_dir%calc_1.vbs"
echo  Set oArgs = WScript.Arguments                           >>"%curr_dir%calc_1.vbs"
echo      For Each s In oArgs                                 >>"%curr_dir%calc_1.vbs"
echo          a(i)=s                                          >>"%curr_dir%calc_1.vbs"
echo          i=i+1                                           >>"%curr_dir%calc_1.vbs"
echo          'MsgBox(s)                                      >>"%curr_dir%calc_1.vbs"
echo      Next                                                >>"%curr_dir%calc_1.vbs"
echo  Set oArgs = Nothing                                     >>"%curr_dir%calc_1.vbs"
echo  'MsgBox(a(0))                                           >>"%curr_dir%calc_1.vbs"
echo  'MsgBox(a(1))                                           >>"%curr_dir%calc_1.vbs"
echo  '                                                       >>"%curr_dir%calc_1.vbs"
echo  a1=145555555555555555                                   >>"%curr_dir%calc_1.vbs"
echo  a2=1255555555.23                                        >>"%curr_dir%calc_1.vbs"
echo  a3=a(0)/a(1)                                            >>"%curr_dir%calc_1.vbs"
echo  a3=round(a3,2)                                          >>"%curr_dir%calc_1.vbs"
echo  If a3^<1 Then                                           >>"%curr_dir%calc_1.vbs"
echo     str1 = 0^&a3                                         >>"%curr_dir%calc_1.vbs"
echo     If Len(str1) ^<4 Then 	str1 = str1^&"0" End if       >>"%curr_dir%calc_1.vbs"
echo  Else                                                    >>"%curr_dir%calc_1.vbs"
echo    If a3^<100 Then                                       >>"%curr_dir%calc_1.vbs"
echo       if Len(a3)^<4 then                                 >>"%curr_dir%calc_1.vbs"
echo         if Len(a3)=1 then str1 = a3^&".00" end if '1     >>"%curr_dir%calc_1.vbs"
echo         if Len(a3)=2 then str1 = a3^&".0" end if  '10    >>"%curr_dir%calc_1.vbs"
echo         if Len(a3)=3 then str1 = a3^&"0" end if   '1.1   >>"%curr_dir%calc_1.vbs"
echo       else                                               >>"%curr_dir%calc_1.vbs"
echo         str1=a3                                   '10.1  >>"%curr_dir%calc_1.vbs"
echo         If Len(str1) ^<4 Then 	str1 = str1^&"0" End if   >>"%curr_dir%calc_1.vbs"
echo       End If                                             >>"%curr_dir%calc_1.vbs"
echo    else magbox("Error! The folder is larger than 100GB") >>"%curr_dir%calc_1.vbs"
echo    End If                                                >>"%curr_dir%calc_1.vbs"
echo  End If                                                  >>"%curr_dir%calc_1.vbs"
echo  '                                                       >>"%curr_dir%calc_1.vbs"
echo  set fso=createobject("scripting.filesystemobject")      >>"%curr_dir%calc_1.vbs"
echo  set fw=fso.createtextfile("c:\vbs_result.txt")          >>"%curr_dir%calc_1.vbs"
echo  fw.write str1                                           >>"%curr_dir%calc_1.vbs"
echo  fw.write "GB---"                                        >>"%curr_dir%calc_1.vbs"
echo  'MsgBox(a3)                                             >>"%curr_dir%calc_1.vbs"

 

for /f "usebackq delims=" %%i in ("directory.txt") do (
	echo dir_is %%i;
	
	for /f "usebackq tokens=3 delims= " %%j in (`dir /s /a /-c "%%i" ^|findstr 个文件`) do (
		setlocal enabledelayedexpansion
	  set z=%%j
  )
 	echo 总大小：!z!字节

    if not exist "%curr_dir%calc_1.vbs" ( rem 处理父目录存在感叹号的路径，如果父目录的路径中存在感叹号，会被丢掉，因为开启了变量延迟。
    	 
    	 setlocal DISABLEDELAYEDEXPANSION
    	 echo parent folder not exist ....... because it contails !!
    	 copy "%curr_dir%calc_1.vbs" d:\
    	 endlocal
    	 
    	 call "d:\calc_1.vbs" !z! %GB%
    	 
    	 setlocal DISABLEDELAYEDEXPANSION
    	 echo "%curr_dir%dir_size.txt"
    	 echo %%i >>"%curr_dir%dir_size.txt"
       type c:\vbs_result.txt  |findstr .* >>"%curr_dir%dir_size.txt"
       endlocal
       
    ) else (
       call "%curr_dir%calc_1.vbs" !z! %GB%
    
       type c:\vbs_result.txt 
 
       echo %%i >>"%curr_dir%dir_size.txt"
       type c:\vbs_result.txt  |findstr .* >>"%curr_dir%dir_size.txt"
    )
  
  endlocal 
  
  for /f "usebackq delims=" %%j in ("c:\vbs_result.txt") do (
	   set dir_total_size=%%j
	   setlocal DISABLEDELAYEDEXPANSION
     rename "%%i" "%%j%%i"
	   endlocal
  )
  echo.
  echo ------------------------------------------------------------------------------------------------------
) 

setlocal DISABLEDELAYEDEXPANSION
del /f /s /q "%curr_dir%calc_1.vbs"  >nul 2>nul
del /f /s /q "c:\vbs_result.txt"  >nul 2>nul
del /f /s /q "%curr_dir%directory.txt"  >nul 2>nul
del /f /s /q "d:\calc_1.vbs"  >nul 2>nul
endlocal
pause
复制代码