显分区的剩余空间(vbs版 & bat版) - 中国DOS联盟论坛

vbs版

set fs = CreateObject("Scripting.FileSystemObject")
set drivecollection = fs.Drives
for each drive in drivecollection
set drivec = fs.GetDrive(drive.path)
emptyspace = drivec.AvailableSpace
list=list & "Available on " & drive.path & vbtab&FormatNumber(emptyspace/1024^2,1) & "MB" & vbcr
next
msgbox list

bat版

@echo off@color f0
:: Code by JM 2007-3-11 CMD@XP
:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=28361

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 (
    set num1=0
    set num3_str=
    set num4=
    for /f "tokens=3" %%j in ('dir /-c %%i:\ 2^>nul') 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.
    )
)
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

第1楼　wert123	发表于 2007-08-28 20:01
中级用户　发帖 135　积分 301
显分区的剩余空间(vbs版 & bat版) vbs版 set fs = CreateObject("Scripting.FileSystemObject") set drivecollection = fs.Drives for each drive in drivecollection set drivec = fs.GetDrive(drive.path) emptyspace = drivec.AvailableSpace list=list & "Available on " & drive.path & vbtab&FormatNumber(emptyspace/1024^2,1) & "MB" & vbcr next msgbox list bat版 @echo off@color f0 :: Code by JM 2007-3-11 CMD@XP :: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=28361 setlocal enabledelayedexpansion :Main cls set /a num2=10241024 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 ( set num1=0 set num3_str= set num4= for /f "tokens=3" %%j in ('dir /-c %%i:\ 2^>nul') 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. ) ) 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

第2楼　wert123	发表于 2007-08-28 20:07
中级用户　发帖 135　积分 301
JM大虾写的 dir /-c %%i:\ 2^>nul； set /a num3=%num4%%num1:~0,1%/%num2% 是什么意思，谁能讲下啊

第3楼　Nickey	发表于 2007-08-29 08:57
初级用户　发帖 59　积分 132　来自 GuangZhou
vbs版第五句错在哪里？:o

第4楼　bd123456789	发表于 2008-11-15 18:14
中级用户　发帖 216　积分 360
Originally posted by Nickey at 2007-8-29 08:57 AM: vbs版第五句错在哪里？:o 是因为部分硬盘前面可能还有一盘,是隐藏的,所以导致出错. 可以在VBS前加一句.. ON ERROR RESUME NEXT 这个BAT版.我执行后没有得到结果,不知道错在哪? [ Last edited by bd123456789 on 2008-11-15 at 18:16 ]