Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Verknpfung im Startmen anlegen

Verknpfungen im Startmen oder auf dem Desktop sind eine sehr benutzerfreundliche Sache. Nur, wie anlegen? Extra ein Setup erstellen, um diese zwei Eintrge im Dateisystem vorzunehmen? Nein: Das geht auch per VBA, und wenn man mchte, sogar automatisch beim ersten Start der Datenbank.

Startmeneintrag anlegen

Die folgende Prozedur hat drei Parameter:

strVerknuepfungsname: Angezeigter Name
strDateiname: Name der zu ffnenden Datei. Normalerweise reicht die Angabe der .mdb-Datei aus.
strIcon: Name einer Icon-Datei, falls vorhanden

Die Routine legt einen neuen Eintrag im Startmen des aktuellen Benutzers an. Fr Eintrge an anderen Stellen verwendet man einfach einen anderen "SpecialFolder": Fr einen Desktop-Eintrag verwendet man etwa die SpecialFolders-Konstante Desktop.

Public Sub LinkAnlegen(strVerknuepfungsname As String, strDateiname As String, Optional strIcon As String)

    Dim objShell As Object

    Dim strStartmenue As String

    Dim objLink As Object

    Set objShell = CreateObject("WScript.Shell")

    strStartmenue = objShell.SpecialFolders("Programs")

    Set objLink = objShell.CreateShortCut(strStartmenue & "\" & strVerknuepfungsname & ".LNK")

    objLink.Targetpath = strDateiname

    If Len(strIcon) > 0 Then

        objLink.IconLocation = strIcon

    End If

    objLink.Save

End Sub

 

© 2003-2015 André Minhorst Alle Rechte vorbehalten.