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

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

• Netzwerkwerte auslesen
• Versenden von E-Mails mit Dateianhängen mittels CDO-Message Library
• Arbeiten mit der Registry
• Arbeiten mit der ShellExecute-Methode
• Auslesen von Infos aller Laufwerke im System