Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
IE Favorites
Message
De
19/10/2000 02:28:57
 
 
À
17/10/2000 19:21:12
Steve Summers
Pima County Superior Court
Tucson, Arizona, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00430660
Message ID:
00431338
Vues:
15
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]
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform