Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Internet Explorer Favorites and FoxPro
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00737093
Message ID:
00738995
Views:
14
>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

You'll note that the favorites files are actually a special kind of shortcut. As such they can be manipulated by the WScript.Shell's CreateShortCut method. Given what you've already gotten
oShortCut = oShell.CreateShortcut(ADDBS(lcfavorites) + "Universal Thread.url")
? oShortCut.TargetPath
will return the UTs url if it's in your favorites folder.

You might want to take a look at the series on the WSH that the late Ed Rauh and I did. It ran from September-December, 2000 and concluded in March, 2001. It was part of the VFUG newsletters for those months and is available on-line at www.vfug.org.
George

Ubi caritas et amor, deus ibi est
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform