How To List Public Folders by Using WebDAV

Article translations Article translations
Article ID: 291171 - View products that this article applies to.
This article was previously published under Q291171
This article has been archived. It is offered "as is" and will no longer be updated.
Expand all | Collapse all

SUMMARY

This article demonstrates how to list all the folders of a folder hierarchy by using Web Distributed Authoring and Versioning (WebDAV).

MORE INFORMATION

To list all of the folders in the public folder hierarchy, follow these steps:
  1. In Microsoft Visual Basic, create a Standard EXE project. Form1 is created by default.
  2. Add a command button to Form1 and name the button Command1.
  3. Add a reference to the MSXML 6.0 object library.
  4. Paste the following code in the code section of Form1.NOTE: Change e2kServer in the code to the name of your Exchange server.
    Private Sub Command1_Click()
       Dim strURL As String
       Dim sUserID As String
       Dim sPassword As String
       strURL = "http://e2KServer/public/"
       sUserID = "UserID" 'TODO 
       sPassword = "password" 'TODO
       ListFolders strURL, sUserID, sPassword
    End Sub
    
    Sub ListFolders(ByVal strURL As String, ByVal sUserID As String, _
    ByVal sPassword As String)
       'Dim oDoc As MSXML.DOMDocument
       'Dim oDocBack As MSXML.DOMDocument
    
       'Dim oNode As IXMLDOMElement
       'Dim oNode2  As IXMLDOMElement
       'Dim req As MSXML.XMLHTTPRequest
    
       MSXML 6.0 
       Dim oDoc As MSXML2.DOMDocument460
       Dim oDocBack As MSXML2.DOMDocument640
       Dim req As MSXML2.XMLHTTP60
       Set oDoc = CreateObject("MSXML2.DomDocument.6.0")
       Set oDocBack = CreateObject("MSXML2.DomDocument.6.0")
    
       Set oDoc = CreateObject("MICROSOFT.XMLDOM")
       Set oDocBack = CreateObject("MICROSOFT.XMLDOM")
       Set pi = oDoc.createProcessingInstruction("xml", "version=""1.0""")
       oDoc.appendChild pi
    
       Set oNode = oDoc.createNode(1, "searchrequest", "DAV:")
       Set oDoc.documentElement = oNode
    
       Set oNode2 = oDoc.createNode(1, "sql", "DAV:")
       oNode.appendChild oNode2
       strQuery = "Select ""DAV:displayname"" From "
       strQuery = strQuery & "Scope('Shallow Traversal of """ & strURL & """')"
       Set query = oDoc.createTextNode(strQuery)
       oNode2.appendChild query
    
       Set req = CreateObject("microsoft.xmlhttp")
       req.open "SEARCH", strURL, False, sUserID, sPassword
       req.setRequestHeader "Translate", "f"
       req.setRequestHeader "Content-Type", "text/xml"
       req.setRequestHeader "Depth", "0"
       req.send oDoc
    
       Set oDocBack = req.responseXML
    
       Dim objNodeList
    
       'Typically the DAV namespace get the 'a' prefix.
       'If you are specifying multiple properties in a search, examine the 
       'returned XML beforehand to determine prefixes for your code.
    
       Set objNodeList = oDocBack.getElementsByTagName("a:displayname")
       For i = 0 To (objNodeList.length - 1)
         Set objNode = objNodeList.nextNode
         Debug.Print objNode.Text
       Next
    End Sub
    					
  5. Run the project.

REFERENCES

For more information about WebDAV, see the WebDAV book in the Exchange SDK, and the WebDAV Sample Application in the "Solutions" section of the Exchange SDK, located at the following Web site:
http://msdn2.microsoft.com/en-us/exchange/default.aspx

Properties

Article ID: 291171 - Last Review: February 27, 2014 - Revision: 5.0
APPLIES TO
  • Microsoft Exchange 2000 Server Standard Edition
  • Microsoft XML Parser 2.0
  • Microsoft XML Core Services 4.0
  • Microsoft XML Core Services 6.0
Keywords: 
kbnosurvey kbarchive kbhowto kbmsg KB291171

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com