itguy51

Const CSIDL_COMMON_PROGRAMS = &H17 
Const CSIDL_PROGRAMS = &H2 
Const OfficeDir = "Microsoft Office"
Set objShell = CreateObject("Shell.Application") 
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS) 
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path 
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\" & OfficeDir) 
Set startFldr = objShell.Namespace(strAllUsersProgramsPath)
Set accFldr = objShell.Namespace(strAllUsersProgramsPath & "\Accessories")