@echo off
:: Display information about all currently accessible drives
setlocal
echo.
echo ` Currently Accessible Drives (drives.btm)`
echo.
echo ` Drive TOT [G] USED[G] FREE[G] CDROM REMOVABLE REMOTE VOLUME NAME TRUE NAME`
echo ` ----- ------- ------- ------- ----- --------- ------ ------------------ ---------`
do i = %@ascii[A] to %@ascii[%_lastdisk]
*set drv=%@char[%i]:
if %@ready[%drv] EQ 1 (
echos %@repeat[ ,4]%drv
echos ` `%@formatn[7.2,%@eval[%@disktotal[%drv,M]/1024]]
echos ` `%@formatn[7.2,%@eval[%@diskused[%drv,M]/1024]]
echos ` `%@formatn[7.2,%@eval[%@diskfree[%drv,M]/1024]]
*set cddrv=%@if[%@cdrom[%drv] EQ 1,Y,N]
echos %@repeat[ ,5]%cddrv
iff %cddrv EQ Y then
*set rmdrv=Y
else
*set rmdrv=%@if[%@removable[%drv] EQ 1,Y,N]
endiff
echos %@repeat[ ,9]%rmdrv
echos %@repeat[ ,6]%@if[%@remote[%drv] EQ 1,Y,N]
echos ` `%@format[-18.18,%@label[%drv]]` `
echo %@repeat[ ,7]%@left[-1,%@truename[%drv\]]
)
enddo