Platforms to show: All Mac Windows Linux Cross-Platform
/MacClassic/Volume Information
Required plugins for this example: MBS MacClassic Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacClassic/Volume Information
This example is the version from Thu, 31th Jul 2019.
Project "Volume Information.xojo_binary_project"
Class Window1 Inherits Window
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control vname Inherits Label
ControlInstance vname Inherits Label
End Control
Control StaticText3 Inherits Label
ControlInstance StaticText3 Inherits Label
End Control
Control StaticText4 Inherits Label
ControlInstance StaticText4 Inherits Label
End Control
Control StaticText5 Inherits Label
ControlInstance StaticText5 Inherits Label
End Control
Control StaticText6 Inherits Label
ControlInstance StaticText6 Inherits Label
End Control
Control StaticText7 Inherits Label
ControlInstance StaticText7 Inherits Label
End Control
Control StaticText8 Inherits Label
ControlInstance StaticText8 Inherits Label
End Control
Control StaticText9 Inherits Label
ControlInstance StaticText9 Inherits Label
End Control
Control StaticText10 Inherits Label
ControlInstance StaticText10 Inherits Label
End Control
Control StaticText11 Inherits Label
ControlInstance StaticText11 Inherits Label
End Control
Control StaticText12 Inherits Label
ControlInstance StaticText12 Inherits Label
End Control
Control StaticText13 Inherits Label
ControlInstance StaticText13 Inherits Label
End Control
Control StaticText14 Inherits Label
ControlInstance StaticText14 Inherits Label
End Control
Control StaticText2 Inherits Label
ControlInstance StaticText2 Inherits Label
End Control
Control StaticText15 Inherits Label
ControlInstance StaticText15 Inherits Label
End Control
Control filecount Inherits Label
ControlInstance filecount Inherits Label
End Control
Control foldercount Inherits Label
ControlInstance foldercount Inherits Label
End Control
Control totalbytes Inherits Label
ControlInstance totalbytes Inherits Label
End Control
Control freebytes Inherits Label
ControlInstance freebytes Inherits Label
End Control
Control blocksize Inherits Label
ControlInstance blocksize Inherits Label
End Control
Control totalblocks Inherits Label
ControlInstance totalblocks Inherits Label
End Control
Control freeblocks Inherits Label
ControlInstance freeblocks Inherits Label
End Control
Control defaultvolume Inherits Label
ControlInstance defaultvolume Inherits Label
End Control
Control filesopen Inherits Label
ControlInstance filesopen Inherits Label
End Control
Control Hardwarelocked Inherits Label
ControlInstance Hardwarelocked Inherits Label
End Control
Control Softwarelocked Inherits Label
ControlInstance Softwarelocked Inherits Label
End Control
Control Signature Inherits Label
ControlInstance Signature Inherits Label
End Control
Control name Inherits Label
ControlInstance name Inherits Label
End Control
Control root Inherits Label
ControlInstance root Inherits Label
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action()
nextes
End EventHandler
End Control
EventHandler Sub Open()
nextes
End EventHandler
Sub nextes()
dim v as folderItem
dim vi as VolumeInformationMBS
if c>=volumecount then
c=0
end if
v=volume(c)
c=c+1
vname.text=v.displayName
vi=v.VolumeInformationMBS
if vi<>nil then
blocksize.text=format(vi.blocksize,"0")
totalblocks.text=format(vi.Totalblocks,"0")
totalbytes.text=format(vi.totalbytes,"0")
name.text=vi.name
filecount.text=format(vi.filecount,"0")
foldercount.text=format(vi.foldercount,"0")
freeblocks.text=format(vi.freeblocks,"0")
freebytes.text=format(vi.freebytes,"0")
signature.text=format(vi.FileSystemID,"0")+", "+format(vi.signature,"0")+" ("+chr(vi.signature)+")"
if vi.LimitedInformation then
softwarelocked.text="?"
hardwarelocked.text="?"
defaultvolume.text="?"
filesopen.text="?"
root.text="?"
else
softwarelocked.text=yesno(vi.softwareLocked)
hardwarelocked.text=yesno(vi.hardwareLocked)
defaultvolume.text=yesno(vi.defaultVolume)
filesopen.text=yesno(vi.filesOpen)
root.text=vi.root.NativePath
end if
end if
End Sub
Function yesno(b as boolean) As string
if b then
return "yes"
else
return "no"
end if
End Function
Property Protected c As integer
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
End Class
End Project
The items on this page are in the following plugins: MBS MacClassic Plugin.
