|
|
|
date: 21 Feb 2006 07:49:20 -0800,
group: microsoft.public.exchange2000.development
back
Re: count folder items
Henning Krause [MVP] wrote:
> Hello,
>
> the getElementsByTagName is not the correct way to determine the number of
> items.
>
> Could you post your full code?
>
Here the main snippet. Thanks for your time!
oXMLSizeNodes = oXMLDoc.getElementsByTagName("d:x0e080003")
oXMLHREFNodes = oXMLDoc.getElementsByTagName("a:href")
oXMLHasSubsNodes = oXMLDoc.getElementsByTagName("a:hassubs")
oXMLChildCount = oXMLDoc.getElementsByTagName("DAV:childcount")
Err.Clear()
Dim i As Int16
Dim name_index As Int16
Dim folder_size As String
Dim folder_items As String
Dim folder_name As String
'Dim isum As Int64
Err.Clear()
debug_echo(results, "oXMLSizeNodes.length: " &
oXMLSizeNodes.length)
debug_echo(results, "oXMLChildCount.length: " &
oXMLChildCount.length)
For i = 0 To oXMLSizeNodes.length - 1
name_index = InStr(oXMLHREFNodes.Item(i).nodeTypedValue,
sUrl)
folder_name = Mid(oXMLHREFNodes.Item(i).nodeTypedValue,
name_index + Len(sUrl), Len(oXMLHREFNodes.Item(i).nodeTypedValue) -
Len(sUrl) + 1)
folder_size = Format((500 +
oXMLSizeNodes.Item(i).nodeTypedValue) / 1000, "#,###")
folder_items =
Format(oXMLChildCount.Item(i).nodeTypedValue, "#,###")
date: 24 Feb 2006 07:25:32 -0800
author: HankC
Re: count folder items
Hi Hank,
take a look at
http://www.infinitec.de/en/exchange/howtos/getpublicfoldersize.aspx.
This script gets the size of a given private/public folder.
To get the number of Items (DAV:Childcount), you need to modify these to
lines in the example script:
xmldoc.setProperty "SelectionNamespaces", "xmlns:DAV='DAV:'"
wscript.echo "Size of folder: " &
xmldoc.selectSingleNode("//DAV:childcount").text
Greetings,
Henning Krause
"HankC" wrote in message
news:1140794732.275296.232710@v46g2000cwv.googlegroups.com...
>
> Henning Krause [MVP] wrote:
>> Hello,
>>
>> the getElementsByTagName is not the correct way to determine the number
>> of
>> items.
>>
>> Could you post your full code?
>>
>
> Here the main snippet. Thanks for your time!
>
> oXMLSizeNodes = oXMLDoc.getElementsByTagName("d:x0e080003")
>
> oXMLHREFNodes = oXMLDoc.getElementsByTagName("a:href")
>
> oXMLHasSubsNodes = oXMLDoc.getElementsByTagName("a:hassubs")
>
> oXMLChildCount = oXMLDoc.getElementsByTagName("DAV:childcount")
>
> Err.Clear()
>
> Dim i As Int16
> Dim name_index As Int16
> Dim folder_size As String
> Dim folder_items As String
> Dim folder_name As String
> 'Dim isum As Int64
>
> Err.Clear()
> debug_echo(results, "oXMLSizeNodes.length: " &
> oXMLSizeNodes.length)
> debug_echo(results, "oXMLChildCount.length: " &
> oXMLChildCount.length)
>
> For i = 0 To oXMLSizeNodes.length - 1
>
> name_index = InStr(oXMLHREFNodes.Item(i).nodeTypedValue,
> sUrl)
> folder_name = Mid(oXMLHREFNodes.Item(i).nodeTypedValue,
> name_index + Len(sUrl), Len(oXMLHREFNodes.Item(i).nodeTypedValue) -
> Len(sUrl) + 1)
>
>
> folder_size = Format((500 +
> oXMLSizeNodes.Item(i).nodeTypedValue) / 1000, "#,###")
> folder_items =
> Format(oXMLChildCount.Item(i).nodeTypedValue, "#,###")
>
date: Fri, 24 Feb 2006 21:41:54 +0100
author: Henning Krause [MVP]
|
|