标题: [已结]如何取得指定盘符的已用空间？ [打印本页]
作者: lianjiang2004 时间: 2008-7-13 20:32 标题: [已结]如何取得指定盘符的已用空间？
找了一些资料，都是关于剩余空间的，想要已用空间的数据，如何取得？
谢谢。
[ Last edited by HAT on 2009-1-10 at 19:58 ]
作者: lianjiang2004 时间: 2008-7-13 20:34
最好是通用性强的脚本，不需要启动特殊服务。
因为需要考虑骨头版系统也要能用。
作者: HAT 时间: 2008-7-13 21:14
@echo off
set /p drive=你想知道那个分区的容量？
if "%drive%" equ "" (
goto :eof
) else (
set drive=%drive:~0,1%
)
set drive=%drive::=%
set drive=%drive:\=%
set total=
set free=
for /f "tokens=2 delims==" %%a in ('wmic LogicalDisk where "DeviceID='%drive%:'" get Size /value') do set total=%%a
echo 总空间：%total%
for /f "tokens=3" %%a in ('dir /a %drive%:') do set free=%%a
set free=%free:,=%
echo 剩余空间：%free%
>"%tmp%\cacl.vbs" echo wscript.echo %total%-%free%
for /f %%a in ('cscript /nologo "%tmp%\cacl.vbs"') do echo 已用空间：%%a
[ Last edited by HAT on 2008-7-13 at 09:58 PM ]set /p drive=你想知道那个分区的容量？
if "%drive%" equ "" (
goto :eof
) else (
set drive=%drive:~0,1%
)
set drive=%drive::=%
set drive=%drive:\=%
set total=
set free=
for /f "tokens=2 delims==" %%a in ('wmic LogicalDisk where "DeviceID='%drive%:'" get Size /value') do set total=%%a
echo 总空间：%total%
for /f "tokens=3" %%a in ('dir /a %drive%:') do set free=%%a
set free=%free:,=%
echo 剩余空间：%free%
>"%tmp%\cacl.vbs" echo wscript.echo %total%-%free%
for /f %%a in ('cscript /nologo "%tmp%\cacl.vbs"') do echo 已用空间：%%a
作者: lianjiang2004 时间: 2008-7-13 21:25
谢谢。
不知“wmic”的命令对系统是否有要求？是否是windows2000以上的，即使是精简的系统，也可正常运行？
作者: HAT 时间: 2008-7-13 21:30
我从来不用精简的系统，所以无法测试，你自己试试吧。
作者: lianjiang2004 时间: 2008-7-13 21:31
运行出错，提示无效get开关。
作者: lianjiang2004 时间: 2008-7-13 21:34
主要是想在我的“GGhost一键恢复”中增加一些提示信息。
因此需要考虑各种系统环境的都能正常运行。
我下载个精简的看看，谢谢了。
不知何故，用Copy to clipboard复制的脚本，我的系统上运行出错。
作者: lianjiang2004 时间: 2008-7-13 21:35
是否是缺少外部命令get？
我找找看。
作者: lianjiang2004 时间: 2008-7-13 21:39
找了个 get v2.4 还是出错。
作者: HAT 时间: 2008-7-13 21:59
代码更新了，你重新拷贝试试。
作者: lianjiang2004 时间: 2008-7-13 22:07
更新的代码测试通过。
我只会点最基本的批处理，对wmic的了解基本是空白。
要消化这段代码，还要好好补课。
非常感谢。
有问题再请教。
作者: lianjiang2004 时间: 2008-7-13 23:13
我想对3楼的代码进行处理。
即想通过近似计算，用“总空间-剩余空间”求得已用空间。
思路如下：
set /a total1=%total:~0,-3%/1049
set /a free1=%free:~0,-3%/1049
可是发现free1正确，而 total1却多了一位。不知为何。
作者: terse 时间: 2008-7-14 00:09
发个计算到G的怎么样
@echo off&color b
set /p disk=输入你要查询的盘符
for /f %%a in ('wmic logicaldisk where "caption='%disk%:'" get FreeSpace /value 2^>nul') do set %%a
if %FreeSpace% LSS 1024 set/a FreeSpace=(FreeSpace*1000)/1024&echo.&echo.&echo.&echo. %disk% 盘可用空间为 !Free! KB&pause>nul&goto :eof
set mn=MB
call :lp 1048576
set mn=GB
set/a modr=0
set FreeSpace=%t%
set t=0
call :lp 1024
goto :eof
:lp
set Free=%FreeSpace:~0,1%
set/a mod=modr*10+Free
set/a r=mod/%1
set t=%t%%r%
if "%t%"=="0" set t=
set/a modr=mod%%%1
set FreeSpace=%FreeSpace:~1%
if defined FreeSpace goto lp
set/a w=0
if %t% gtr 1024 goto :eof
set t=%t%.
set n=2
:loop
set /a modr*=10,r=modr/%1,w+=1
if %w% geq %n% set/a modr=modr%%%1*10/%1 && goto lpok
set t=%t%%r%
set/a modr=modr%%%1
goto loop
:lpok
cls
for /f "delims=0 tokens=*" %%i in ("%t%%r% %mn%") do set t=%%i
echo.&echo.&echo. %disk% 盘可用空间为: %t%&echo.&pause&exit
set /p disk=输入你要查询的盘符
for /f %%a in ('wmic logicaldisk where "caption='%disk%:'" get FreeSpace /value 2^>nul') do set %%a
if %FreeSpace% LSS 1024 set/a FreeSpace=(FreeSpace*1000)/1024&echo.&echo.&echo.&echo. %disk% 盘可用空间为 !Free! KB&pause>nul&goto :eof
set mn=MB
call :lp 1048576
set mn=GB
set/a modr=0
set FreeSpace=%t%
set t=0
call :lp 1024
goto :eof
:lp
set Free=%FreeSpace:~0,1%
set/a mod=modr*10+Free
set/a r=mod/%1
set t=%t%%r%
if "%t%"=="0" set t=
set/a modr=mod%%%1
set FreeSpace=%FreeSpace:~1%
if defined FreeSpace goto lp
set/a w=0
if %t% gtr 1024 goto :eof
set t=%t%.
set n=2
:loop
set /a modr*=10,r=modr/%1,w+=1
if %w% geq %n% set/a modr=modr%%%1*10/%1 && goto lpok
set t=%t%%r%
set/a modr=modr%%%1
goto loop
:lpok
cls
for /f "delims=0 tokens=*" %%i in ("%t%%r% %mn%") do set t=%%i
echo.&echo.&echo. %disk% 盘可用空间为: %t%&echo.&pause&exit
作者: lianjiang2004 时间: 2008-7-14 07:30
谢谢楼上的。
好像我12楼的
set /a total1=%total:~0,-3%/1049
应为
set /a total1=%total:~0,-4%/1049
但改成set /a free1=%free:~0,-4%/1049
剩余空间就不对了。
[ Last edited by lianjiang2004 on 2008-7-14 at 07:36 AM ]
作者: hhasee 时间: 2009-1-10 18:03
能否写个直接告诉我的硬盘总容量是多少的？不用一个一个盘符地输入再加，太麻烦了。在线等！
作者: exzzz 时间: 2009-1-10 18:27
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive in colDrives
Wscript.Echo objDrive.DriveLetter & " 盘的可用空间是" & FormatNumber(objDrive.FreeSpace/1024/1024,0) & "MB，总容量是 " & FormatNumber(objDrive.TotalSize/1024/1024,0) & "MB"
Next
[ Last edited by exzzz on 2009-1-10 at 18:33 ]Set colDrives = objFSO.Drives
For Each objDrive in colDrives
Wscript.Echo objDrive.DriveLetter & " 盘的可用空间是" & FormatNumber(objDrive.FreeSpace/1024/1024,0) & "MB，总容量是 " & FormatNumber(objDrive.TotalSize/1024/1024,0) & "MB"
Next