Xojo Conferences
MBSOct2019CologneDE

Platforms to show: All Mac Windows Linux Cross-Platform

/MacClassic/Volume Information
Function:
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.rbp"
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

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS MacClassic Plugin.

The biggest plugin in space...




Links
MBS Xojo Plugins