' Verknüpfung erstellen
 
Public Function CreateLink(ByVal sFile As String, _
  ByVal sLinkName As String, _
  Optional ByVal sParameter As String = "", _
  Optional ByVal sComment As String = "", _
  Optional ByVal sWorkingDir As String = "", _
  Optional ByVal sHotKey As String) As Boolean
 
  ' Fehlerbehandlung, falls WSH-Objekt nicht
  ' verfügbar
  On Error GoTo ErrHandler
  Dim WshShell As Object
  Dim WshLink As Object
 
  ' Verweis auf den Windows Scripting Host erstellen
  Set WshShell = CreateObject("WScript.Shell")
 
  ' Neuen Link Erstellen
  Set WshLink = WshShell.CreateShortcut(sLinkName)
 
  With WshLink
    ' Ziel der Verknüpfung
    .TargetPath = sFile
 
    ' Weitere Eigenschaften...
    .WorkingDirectory = sWorkingDir
    .Arguments = sParameter
    .Description = sComment
    .HotKey = sHotKey
 
    ' Verknüpfung speichern
    .Save
  End With
 
  ' Objekte zerstören
  Set WshLink = Nothing
  Set WshShell = Nothing
 
  CreateLink = True
  On Error GoTo 0
  Exit Function
 
ErrHandler:
  CreateLink = False
End Function