George
Thanks, got it to work but the favorites name has to be the full name -- loFile.Name -- not just the stem. this leads me to another question, however which I have just posted.
Thanks so much,
Steve


set safe off
clear

create table favs ( ;
FavName c (50) , ;
MemName mem , ;
FavUrl c(50) , ;
MemUrl mem )

close all

use favs

release all like o*

loShell = CREATEOBJECT("WScript.Shell")

pcFolderName =loShell.SpecialFolders("Favorites")

oFS = createobject("scripting.FileSystemObject")
oFolder = oFS.GetFolder(pcFolderName)
? " number of favorites :", oFolder.Files.Count
? oFolder.SubFolders.Count



** Files in Favorites
for each loFile in oFolder.Files
appe blank
go bott

repl FavName with loFile.Name
repl MemName with loFile.Name

?? substr(alltrim((loFile.Name)),1,1)

oShortCut = loShell.CreateShortcut(ADDBS("C:\Documents and Settings\se\Favorites") + (loFile.Name))

*? oShortCut.TargetPath
*?

repl FavUrl with oShortCut.TargetPath
repl memUrl with oShortCut.TargetPath


next

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


inde on alltrim((favname)) to a
go top