Iterates through all the message queues in the network, examines the path for each queue. : Messaging « Windows « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows
3. Messaging

Imports System
Imports System.Messaging

Public Class MyNewQueue
   Public Shared Sub Main()
     Dim numberQueues As Int32 = 0
     Dim myQueueEnumerator As MessageQueueEnumerator = MessageQueue.GetMessageQueueEnumerator()

     While myQueueEnumerator.MoveNext()
         Console.WriteLine(myQueueEnumerator.Current.Path)
         numberQueues += 1
     End While
     Console.WriteLine(("Number of public queues: " + numberQueues.ToString()))
   End Sub
End Class