Einlesen der Favoriten des Internetexplorers

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Details: Kategorie: Bsp. Downloads Communication; Geschrieben von TommyK; Zugriffe: 3503

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.

Funktionsweise:

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