When you say top level folder do you mean one just below "Mailbox" and on a
level with Inbox?

Set ol = New Outlook.Application
Set ns = ol.GetNameSpace("MAPI")
Set folder = ns.GetDefaultFolder(6) 'Inbox
Set folder2 = folder.Parent
Set folder3 = folder2.Folders.Add("3 Year Retention", 6) 'new email folder

That would work as a VBScript. If you want to create a different type of
folder use a different value from the OlDefaultFolders enumeration.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Adrian Butler" wrote in message
...
Need to create a top level fodler within a users mailbox called 3 year
retention. Would like to find a way to script this for approx 6000
mailboxes, any suggestions or recommendations are appreciated