Forgot. The above refers to the code kindly provided by Nadya Novonovsky

loShell = CREATEOBJECT("WScript.Shell")
pcFolderName =loShell.SpecialFolders("Favorites")
oFS = createobject("scripting.FileSystemObject")
oFolder = oFS.GetFolder(pcFolderName)
? oFolder.Files.Count
?oFolder.SubFolders.Count
** Files in Favorites
for each loFile in oFolder.Files
?loFile.Name
next

*** SubFolders in Favorites
for each loFolder in oFolder.SubFolders
?loFolder.Name
next