Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS Util Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/VolumeSize Example
This example is the version from Thu, 31th Jul 2019.
Project "VolumeSize Example.xojo_binary_project"
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
End Project
The items on this page are in the following plugins: MBS Util Plugin.