You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/VolumeSize Example
Class Window1 Inherits Window
Control list Inherits ListBox
ControlInstance list Inherits ListBox
EventHandler Sub Open()
me.columnalignment(2)=3
me.columnalignment(3)=3
End EventHandler
End Control
EventHandler Sub Open()
dim list as listbox = self.list
dim c as integer = volumecount-1
for i as integer = 0 to c
dim v as folderItem = volume(i)
list.addrow v.name
dim l as integer = list.lastIndex
list.cell(l,1) = v.nativePath
list.cell(l,2) = format(v.VolumeSizeMBS,"-0")
list.cell(l,3) = format(v.VolumeFreeSizeMBS,"-0")
next
End EventHandler
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
EventHandler 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 EventHandler
End Class