中国DOS联盟

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

@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

Originally posted by Nickey at 2007-8-29 08:57 AM:
vbs版 第五句错在哪里？:o