This is NOT a "good" Public Folder reporting tool - but as it gets the
result in about a minute, it could be quicker than searching for a tool on
the Internet...
Take this code, and cut and paste it into a text file with a .VBS extension.
Double click on the file. Then look in C:\Temp (or a different directory if
you change the first few lines).
'=============StartOfCode============
set fso = wscript.createobject("Scripting.FileSystemObject")
set folder=fso.getFolder("C:\Temp")
Set OStream = fso.CreateTextFile("C:\temp\ExchangePublicFolders.txt")
OStream.writeLine "Public Folder Hieararchy"
OStream.writeLine "------------------------"
OStream.writeLine ""
'
mySpaces = ""
SUB LookThroughFolder (thisFolder)
mySpaces = mySpaces & " "
for each SubFolder in thisFolder
OSTream.WriteLine mySpaces & SubFolder.name
if SubFolder.folders.count <> 0 then
LookThroughFolder SubFolder.Folders
End if
next
mySpaces = Left(mySpaces,len(mySpaces)-5)
END SUB
set OL = GetObject(,"OUTLOOK.APPLICATION")
set MAPI = OL.GetNamespace("MAPI")
'
' Step through all stores in your profile
'
MsgBox "Looking for all Public Folders . . . "
for each Store in MAPI.FOLDERS
if Store.Name = "Public Folders" Then
LookThroughFolder (Store.Folders)
end if
Next
MsgBox "Finished looking through the Public Folders."
'Now close the output file
Set OStream = Nothing
set fso = nothing
set folder=nothing
'====================EndOfCode=================
-----Original Message-----
From: Hatley, Ken [mailto:Ken.Hatley@;bankofamerica.com]
Sent: 25 October 2002 19:09
To: Exchange Discussions
Subject: Public Folder Reporting Tool
Does anyone know of any good PF reporting tools? I would like to be able to
put the hierarchy into a text file and then add things like number of sub
folders and such. Maybe a way to get ftreeinf.exe to put information into a
text file?
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe: mailto:leave-exchange@;ls.swynk.com
Exchange List admin: [EMAIL PROTECTED]
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe: mailto:leave-exchange@;ls.swynk.com
Exchange List admin: [EMAIL PROTECTED]
