Visual Basic Code Example: Retrieving MSMQQueueInfo.ModifyTime
This example provides a function that receives the path name of an existing queue and returns the MSMQQueueInfo.ModifyTime property for it, which can be used to display the date and time when the properties of the queue were last modified.
This function can use information stored on the local computer to return the date and time when the properties of a local private queue were last modified, but it must retrieve information stored in the directory service to return the date and time when the properties of a local or remote public queue were last modified. This function cannot be used to obtain the date and time when the properties of a remote private queue were last modified.
To retrieve MSMQQueueInfo.ModifyTime
Declare the objects needed to retrieve queue properties. This routine 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.
Call MSMQQueueInfo.Refresh to obtain the current registered settings of the queue properties.
Note This call retrieves the settings of all properties of the queue with the path name set. If no such queue exists, an error message is displayed.
Return the local setting of MSMQQueueInfo.ModifyTime.
The following code example can be run on all versions of Message Queuing.
Function GetModifyTime( _ strPathname As String _ ) As Variant 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 ' Return the local value of MSMQQueueInfo.ModifyTime. GetModifyTime = qinfo.ModifyTime Exit Function ErrorHandler: MsgBox "Error " + Hex(Err.Number) + " was returned." _ + Chr(13) + Err.Description End Function