Control List Inherits Listbox
ControlInstance List Inherits Listbox
EventHandler Sub ExpandRow(row As Integer)
Dim theURL As NSURLMBS = Me.RowTag(row)
Me.AddRow "Path: ", theURL.path
Dim CapacityForImportantUsage As Variant
Dim error As NSErrorMBS
Dim result As Boolean = theURL.getResourceValue(CapacityForImportantUsage, theURL.NSURLVolumeAvailableCapacityForImportantUsageKey, error)
me.AddRow "CapacityForImportantUsage: ",CapacityForImportantUsage.StringValue
If error <> Nil Then
me.AddRow "Error: ",error.LocalizedDescription
End If
Dim CapacityForOpportunisticUsage As Variant
result = theURL.getResourceValue(CapacityForOpportunisticUsage, theURL.NSURLVolumeAvailableCapacityForOpportunisticUsageKey, error)
me.AddRow "CapacityForOpportunisticUsage: ",CapacityForOpportunisticUsage.StringValue
If error <> Nil Then
me.AddRow "Error: ",error.LocalizedDescription
End If
Dim CapacityKey As Variant
result = theURL.getResourceValue(CapacityKey, theURL.NSURLVolumeAvailableCapacityKey, error)
me.AddRow "CapacityKey: ",CapacityKey.StringValue
If error <> Nil Then
me.AddRow "Error: ",error.LocalizedDescription
End If
Dim TotalCapacity As Variant
result = theURL.getResourceValue(TotalCapacity, theURL.NSURLVolumeTotalCapacityKey, error)
me.AddRow "TotalCapacity: ",TotalCapacity.StringValue
If error <> Nil Then
me.AddRow "Error: ",error.LocalizedDescription
End If
End EventHandler
EventHandler Sub Open()
me.ColumnAlignment(1) = Listbox.AlignRight
Dim u As Integer = VolumeCount-1
For i As Integer = 0 To u
add Volume(i)
Next
End EventHandler
End Control