Visual Basic Code Example: Setting MSMQQueueInfo.Quota
This example provides a private Sub procedure that sets the MSMQQueueInfo.Quota property of an existing queue based on a given queue size (in kilobytes).
Setting this property changes the maximum size of the queue. Setting this property has no effect on messages already in the queue.
When Message Queuing updates the properties of a queue, their values are stored in one of two places. For public queues, these property values are stored in the directory service. For local private queues, these property values are stored on the local computer.
To set MSMQQueueInfo.Quota
Declare the objects needed to update queue properties. This procedure declares an MSMQQueueInfo object.
Create the MSMQQueueInfo object. This example then uses MSMQQueueInfo.PathName to set the path name to the string passed to the function.
Optional. Call MSMQQueueInfo.Refresh to obtain the current registered settings of the queue properties.
|This call retrieves any changes made by other applications.|
Set the MSMQQueueInfo.Quota property.
Call MSMQQueueInfo.Update to register the new settings.
The following code example can be run on all versions of Message Queuing.
Sub SetQueueQuota( _ strPathname As String, _ lQuota As Long _ ) Dim qinfo As MSMQQueueInfo ' Create the MSMQQueueInfo object. Set qinfo = New MSMQQueueInfo qinfo.PathName = strPathname On Error GoTo ErrorHandler ' Retrieve the internally registered property values. qinfo.Refresh ' Set the new queue quota in the MSMQQueueInfo object. qinfo.Quota = lQuota ' Update the internally registered property values. qinfo.Update MsgBox "A new queue quota was set." Exit Sub ErrorHandler: MsgBox "Error " + Hex(Err.Number) + " was returned." _ + Chr(13) + Err.Description End Sub