[数值计算] 不支持32位以上的字符，批处理计算磁盘空间怎样以GB为单位？

范君健

@echo off
rem write to log
set filename=磁盘空间日志.log
echo -------------------这是一条没有感情的分割线------------------------- >>%filename%
echo Start >>%filename%
echo (%date% %time%) >>%filename%

net use O: \192.168.0.127\127d Kovn2020 /user:administrator
net use P: \192.168.0.128\128d Kovn2020 /user:administrator
net use Q: \192.168.0.130\130d Kovn2020 /user:administrator

setlocal enabledelayedexpansion
:Main
cls
set /a num2=1024*1024
for %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
if exist %%i: (
set num3_str=
set num4=
for /f "tokens=3" %%j in ('dir /-c %%i:') do set num1=%%j
if not "!num1!"=="0" (
call :loop
for /f "delims=0 tokens=" %%k in ("!num3_str!") do set num3_str=%%k
echo.
echo %%i 盘剩余空间为 !num3_str! MB
echo %%i !num3_str! MB >>%filename%
echo.
)
)
)
)
net use O: /delete /y
net use P: /delete /y
net use Q: /delete /y
pause
goto Main
:loop
:: 求商
set /a num3=%num4%%num1:~0,1%/%num2%
:: 求商序列
set num3_str=%num3_str%%num3%
:: 求余
set /a num4=%num4%%num1:~0,1%%%%num2%
if %num4% equ 0 set num4=
set num1=%num1:~1%
if not "%num1%"=="" goto loop
goto :eof

echo End >>%filename%
echo (%date% %time%) >>%filename%
复制代码

怎么才能使导出的文件单位是G呢？ 不支持32位以上的字符，能不能曲线救国？通过其他办法解决一下