TKSoft-Online

Einlesen der Favoriten des Internetexplorers PDF Drucken E-Mail
( 0 Votes )
MS-Access Bsp. DB's - Bsp. Downloads Communication
Geschrieben von: TommyK   
Donnerstag, den 03. Januar 2008 um 01:00 Uhr
Tags:

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 unter A97,A00, AXP, A03 lauffähig, unter A07 wurde es nicht getestet.

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

 

Nach dem Einlesen wird nur noch die Datenherkunft des Listenfeldes aktualisiert.

 

Einlesen der Favoriten des Internetexplorers

Einlesen der Favoriten des Internetexplorers
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00




 Erstellt am
Dateigröße
Downloads		 02.01.2008
57.75 KB
1875

 

Downloads in dieser Kategorie

MS-Access Communication

MS-Access Communication

Seite: 1


DatumKlicks
Total1214
Do. 241
Mi. 232
Di. 225
Sa. 193
Fr. 181
Do. 172
Mi. 161
< Zurück   Weiter >
Aktualisiert ( Mittwoch, den 26. Januar 2011 um 07:30 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173483 Downloads