Problemstellung:
Auslesen der Favoriten des IE von MS.
Unter Win XP, W2k und NT4 werden nur die Favoriten des aktuellen Users ausgelesen.
Voraussetzungen:
Das Bsp ist ab A97 lauffähig.
Die Funktion "FavPfad" ermittelt den Pfad der Favoriten des aktuellen Users,
danach wird mittels der Funktion "SucheDateien" die Favoriten ausgelesen und in die Tabelle
"tbl_Links" geschrieben.
Ermittelt wird die Beschreibung und die URL.
Kommen wir zu den wichtigsten Teilen des Bsp's.
1. Ermitteln des Pfades in dem sich die Favoriten des IE auf dem System befinden:
Public Declare Function SHGetFolderPath Lib "shfolder.dll" Alias "SHGetFolderPathA" _ (ByVal hwndOwner As Long, _ ByVal nFolder As Long, ByVal hToken As Long, _ ByVal dwReserved As Long, _ ByVal lpszPath As String) As Long Public Const MAX_PATH As Long = 260 Public Function FavPfad(clsid As Long, lhwnd As Long) As String Dim pfad As String Dim stri As String pfad = Space$(MAX_LENGTH) If SHGetFolderPath(lhwnd, clsid, 0&, &H0, pfad) = S_OK Then _ stri = Left$(pfad, InStr(pfad, Chr$(0)) - 1) FavPfad = stri End Function
2. Einlesen der Favoriten in die Tabelle "tbl_Links"
zuerst werden alle alten Einträge aus der Tabelle "tbl_Links" entfernt.
dann werden die Argumente den Dateiparametern übergeben und mit diesen Parametern die
Funktion "SucheDateien" aufgerufen.
Da der Code dazu recht lang und komplex ist, spare ich mir hier das Listing. Interessenten
können sich den Code in der Bsp-DB anschauen.
Private Sub cmdReadFavo_Click() Dim dateiparams As FILE_PARAMS Dim fPfad As String ' Löschen der Tabelleninhalte DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbl_Links.* FROM tbl_Links;" DoCmd.SetWarnings True fPfad = FavPfad(&H6, Me.Hwnd) If Len(fPfad) > 0 Then dateiparams.sFileRoot = fPfad dateiparams.sFileNameExt = "*.url" dateiparams.bRecurse = True Call SucheDateien(dateiparams) End If Me!lstFavo.Requery End Sub
Nach dem Einlesen wird nur noch die Datenherkunft des Listenfeldes aktualisiert.
Einlesen der Favoriten des Internetexplorers
ab A97
Die Zip-Datei enthält ein Version für A97 und eine ab A00
Ähnliche Artikel
Weiterlesen...