
_SUB ListDrvVol 
    SET-ret &DrvVolDat=
    SET$ &NL=0d 0a
    SET$ &TAB=09
    FDRV &&ALlDrv=*: 
    forx * %&ALlDrv%, &&drv1,
    {
        FDRV *vol   &&vol1=%&drv1% 
        FIND $X=X%&DrvVolDat%,! SET DrvVolDat=%&DrvVolDat%%NL%
        FIND %&drv1%\=?,&&C1  //总空间
        IFEX %&drv1%\=?,&&C2  //剩余空间
        SET DrvVolDat=%&DrvVolDat%%drv1%%&TAB%%&C1%%&TAB%%&C2%%&TAB%%&vol1%
    }
_END
ListDrvVol
MESS. %&DrvVolDat%

