Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
IE Favorites
Message
From
19/10/2000 02:28:57
 
 
To
17/10/2000 19:21:12
Steve Summers
Pima County Superior Court
Tucson, Arizona, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00430660
Message ID:
00431338
Views:
14
Steve,

you could use WSH to retrieve the URLs of the Favorites folder:
LOCAL loShell,loFolder,lcTxt,i,loFile


loShell  = CREATEOBJECT("WScript.Shell") 
lcFSO    = CREATEOBJECT("Scripting.FileSystemObject")
loFolder = lcFSO.getFolder(loShell.SpecialFolders("Favorites"))
FOR EACH loFile IN loFolder.Files
  lcTxt = FILETOSTR(loFile.Path)
  FOR i = 1 TO MEMLINES(lcTxt)
    lcLine = MLINE(lcTxt,i)
    IF LEFT(lcLine,4) == "URL="  && not sure what all that BASEURL stuff is about
      INSERT INTO YOUR_DBF (COL_FILE,    ;
                            COL_URL  )   ;
          VALUES           (loFile.Name, ;
                            lcLine )
      EXIT
    ENDIF
  ENDFOR
ENDFOR  
loShell = .NULL.
lcFSO   = .NULL.
I didn't test this heavily, but it can give you an idea. Additionally you might want to iterate through the subfolders of the Favorites folder.

Hope that helps

Robert
I've acquired quite a taste for a well-made mistake... [Fiona Apple]
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform