批处理系列6：查找剩余空间最大的磁盘盘符（终稿）

807979023 · 发表于 2021-7-13 21:19:36

本帖最后由 807979023 于 2021-7-13 21:34 编辑

转自批处理之家apang大师作品。
加了一句判断，多数代码看不懂，剩余空间的大小显示准确。

@echo off&color 1f&echo.
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=g" %%a in ('cmd /u /c Echo,有') do set "Tab=%%a"
set w=wmic logicaldisk where "DriveType='3'"
set /a max=1
for /f "tokens=1-3" %%a in ('%w% get freespace^,name^,size^|find ":"')do (
set /p=分区%%b%Tab%<nul
call :GetSize %%a000 free
call :GetSize %%c000 size
set /a used=size-free
if !size! gtr 102400 (
set "G=GB" & set /a size/=1024,used/=1024
) else set "G=MB"
set /a used=1000*used/size
if "!used:~,-1!" == "" set "used=0!used!"
set /p=大小: !size:~,-2!.!size:~-2!!G!%Tab%<nul
set free1=!free!
if !free! gtr 102400 (set /a free/=1024 & set "G=GB") else set "G=MB"
set /p=剩余: !free:~,-2!.!free:~-2!!G!%Tab%<nul
set /p=使用率: !used:~,-1!.!used:~-1!%%<nul & echo,
if !free1! gtr !max! set max=!free1!&&set mb=!free:~,-2!.!free:~-2!!G!&&set bc=%%b
)
echo.&echo 硬盘剩余最大: 分区%bc% 剩余: %mb%
echo.&echo 按任意键退出...&pause >nul&exit
:GetSize
set "num=%1" & set "n=" & set "%2="
for %%a in (16 8 4 2 1) do (
if not "!num:~%%a!"=="" set /a n+=%%a & set "num=!num:~%%a!"
)
set "num=%1" & set /a n-=6
for /l %%a in (!n! -1 1) do (
set "s=!num:~,-%%a!"
if "!s:~,1!" == "0" set "s=!s:~1!"
set /a m=s%%1048576,s/=1048576
set "%2=!%2!!s!"
set "num=!m!!num:~-%%a!"
)
if not defined %2 (
set "%2=!num:~,-1!"
) else if "!%2:~,1!" == "0" set "%2=!%2:~1!"
goto :EOF

复制代码

807979023 · 发表于 2021-7-14 10:06:48

plusv 发表于 2021-7-13 23:03
于 Windows 7 X64 测试通过.

请问格式和卷名是怎么加的呀！

807979023 · 发表于 2021-7-14 10:07:00

本帖最后由 807979023 于 2021-7-14 10:08 编辑

plusv 发表于 2021-7-13 23:03
于 Windows 7 X64 测试通过.

807979023 · 发表于 2021-7-15 13:30:40

加格式和卷名后，xp win7x32 win7x64 测试通过，win10x64失败。

807979023 · 发表于 2021-7-15 19:27:22

plusv 发表于 2021-7-15 18:28
807979023> 加格式和卷名后，xp win7x32 win7x64 测试通过，win10x64失败。

我于 Windows XP/Window ...

哪里改错了？

@echo off&color 1f&echo.
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=g" %%a in ('cmd /u /c Echo,有') do set "Tab=%%a"
set w=wmic logicaldisk where "DriveType='3'"
set /a max=1
for /f "tokens=1-5" %%a in ('%w% get FileSystem^,freespace^,name^,size^,VolumeName^|find ":"')do (
set /p=分区%%c%Tab%<nul
call :GetSize %%b000 free
call :GetSize %%d000 size
set /a used=size-free
if !size! gtr 102400 (
set "G=GB" & set /a size/=1024,used/=1024
) else set "G=MB"
set /a used=1000*used/size
if "!used:~,-1!" == "" set "used=0!used!"
set /p=大小: !size:~,-2!.!size:~-2!!G!%Tab%<nul
set free1=!free!
if !free! gtr 102400 (set /a free/=1024 & set "G=GB") else set "G=MB"
set /p=剩余: !free:~,-2!.!free:~-2!!G!%Tab%<nul
set /p=使用率: !used:~,-1!.!used:~-1!%%%Tab%<nul
set /p=卷标: %%e%Tab%<nul
set /p=格式: %%a%Tab%<nul & echo,
if !free1! gtr !max! set max=!free1!&&set mb=!free:~,-2!.!free:~-2!!G!&&set bc=%%c
)
echo.&echo 分区剩余最大: 分区%bc% 剩余: %mb%
echo.&echo 按任意键退出...&pause >nul&exit
:GetSize
set "num=%1" & set "n=" & set "%2="
for %%a in (16 8 4 2 1) do (
if not "!num:~%%a!"=="" set /a n+=%%a & set "num=!num:~%%a!"
)
set "num=%1" & set /a n-=6
for /l %%a in (!n! -1 1) do (
set "s=!num:~,-%%a!"
if "!s:~,1!" == "0" set "s=!s:~1!"
set /a m=s%%1048576,s/=1048576
set "%2=!%2!!s!"
set "num=!m!!num:~-%%a!"
)
if not defined %2 (
set "%2=!num:~,-1!"
) else if "!%2:~,1!" == "0" set "%2=!%2:~1!"
goto :EOF

复制代码

807979023 · 发表于 2021-7-16 09:10:04

青青草发表于 2021-7-15 20:21
已再次更新代码，麻烦你测试一下。
谢谢！

测试通过，由于截图保存在e盘，所以e盘剩余字节依次减少。
c盘是win7x32，win7x64安装后放在c盘一个文件夹中，需要时与根目录系统交换位置。
d盘是winxp，h盘是win10x64，启动后盘符为c，原c盘被隐藏。
所以都是同一硬盘实机测试。

		自动登录	找回密码
密码			注册