Drive Space

Back to Samples

Illustrates:

• Cheeky way of displaying a bar-chart.

   $sBar = "||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||"
   ;... in the absence of a StringRepeat("|",100)  ;o)
   $sOut = $sBar & " = 100% Capacity Baseline" & @LF
   ProgressOn("Scanning drives", "", "")
   
   $aNetDrives = DriveGetDrive( "NETWORK" )
   For $nDrv = 1 to $aNetDrives[0]
       $sDrv = StringUpper($aNetDrives[$nDrv])
       ProgressSet(100* $nDrv/$aNetDrives[0], $sDrv & " (" & $nDrv & " of " & $aNetDrives[0] & ")")
       sleep(10)
       $nSpaceFree = DriveSpaceFree($sDrv)
       $nSpaceTotal = DriveSpaceTotal($sDrv)
       $nPct = 100 * $nSpaceFree / $nSpaceTotal
       $sOut = $sOut & $sDrv & " (Free=" & StringFormat("%.2fMb",$nSpaceFree) & "; Total=" & StringFormat("%.2fMb",$nSpaceTotal) & ")" & @LF
       $sOut = $sOut & StringLeft($sBar, $nPct) & " = " & "(" & StringFormat("%.2f",$nPct) & "%)" & @LF
   Next
   
   ProgressOff()
   
   Msgbox (0,"Free Space (NETWORK)",$sOut)