This function returns the current partition.
object.CurrentPartition
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the name, code and type of the current partition.
Dim aPartition
Dim aMessage
Dim aType
Set aPartition = Profile.CurrentPartition
aType = aPartition.PartitionType
aMessage = aPartition.Name & " " & "(" & aPartition.Code & "); " & vbNewLine &_
"Type: " & aType
Profile.MsgBox (aMessage)