中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 显分区的剩余空间(vbs版 & bat版)

wert123
中级用户

积分 301
发帖 135
注册 2007-5-15
状态离线

『楼主』: 显分区的剩余空间(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=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