I suspect its still running.... Error checking and status reporting (how far have I got) were NOT included. It could have run out of memory / resources, but it shouldn't have done so. It worked on my Public Folder list - which is about 4000 folders.
Cheers, Chris -----Original Message----- From: Hatley, Ken [mailto:Ken.Hatley@;bankofamerica.com] Sent: 28 October 2002 18:53 To: Exchange Discussions Subject: RE: Public Folder Reporting Tool This worked great on my small Org, but when I ran it on a larger one, it just stopped working after about 20% complete with no errors? Any ideas? ------------------------------------ Ken Hatley, MCSE Messaging Consolidation VM/Pgr. 877.500.2511 Office 972.997.9261 -----Original Message----- From: Chris Jordan [mailto:Chris.Jordan@;cmg.com] Sent: Monday, October 28, 2002 8:58 AM To: Exchange Discussions Subject: RE: Public Folder Reporting Tool 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] _________________________________________________________________ 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]