IF TYPE('oBrowseObject.ParentFolder.Items') # 'U' FOR EACH Item IN oBrowseObject.ParentFolder.Items IF Item.Name == oBrowseObject.Title cPathToReturn = Item.Path EXIT ENDIF ENDFOR ENDIFIf you do have no ParentFolder.items collection, you can examine the special folders either in the Registry key:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Foldersand look for they registry value named in oBrowseObject.Title, or use the Wscript.Shell automation object's SpecialFolders collection to retrieve the path, finding the item.Name that matches oBrowseObject.Title in the collection (thwis requires that Wscript have been installed and the WSHOM.OCX is registered, meaning 98, NT 4.0 with Option Pack 4, or the NT 5 beta.)