/Util/VolumeSize Example
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Util/VolumeSize Example
This example is the version from Tue, 28th Dec 2009.
Notes: Last modified: Tue, 28th Dec 2009

Class Window1
Inherits Window
  // Controls
  ControlInstance
    Sub Open() Handles Event
      me.columnalignment(2)=3
      me.columnalignment(3)=3
      me.columnalignment(4)=3
      me.columnalignment(5)=3
    End Sub
  End ControlInstance
  
  // Event implementations
  Sub Open()
    dim i,c,l as integer
    dim v as folderItem
    
    c=volumecount-1
    
    for i=0 to c
      v=volume(i)
      list.addrow v.name
      l=list.lastIndex
      list.cell(l,1)=v.absolutePath
      list.cell(l,2)=format(v.VolumeSizeMBS,"-0")
      list.cell(l,3)=format(v.VolumeSizeKBMBS,"-0")
      list.cell(l,4)=format(v.VolumeFreeSizeMBS,"-0")
      list.cell(l,5)=format(v.VolumeFreeSizeKBMBS,"-0")
    next
  End Sub
End Class

Class App
Inherits Application
  // Event implementations
  Sub Open()
    if TargetWin32 then
      // Disable error dialog from Windows with missing disc in drive
      
      soft Declare Function SetErrorMode Lib "kernel32" (wMode As integer) As integer
      
      call SetErrorMode 3
      
    end if
    
  End Sub
End Class