Show only one folder contents

To All:

I wish to find the contents of only one folder under the ALL_USERS
program files folder.

I have the following:

Const ALL_USERS_PROGRAMS = &H17&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ALL_USERS_PROGRAMS)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path

Set colItems = objFolder.Items
For Each objItem in colItems
Wscript.Echo objItem.Name
Next

I would like to only enumerate ONE folder's contents under the
"%allusersprofile%\Start Menu\Programs" folder.

I would also like to output the data to a file instead of echoing it.

Any help would be appreciated...

Thanks!

Mark