批处理之家 - Powered by Discuz! Board

@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