Tipp 0109 Programmverknüpfung erstellen
Autor/Einsender:
Datum:
  Michael Werner
11.03.2006
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Mit einem Verweis auf die COM-Komponente Windows Script Host Object Model (wshom.ocx), die ab Windows 98 auf allen Windowssystemen zu finden ist, lässt sich sehr einfach ein Link einer Programmdatei an einem beliebigen Ort im System erstellen.
In diesem Tipp werden über die Environment.SpecialFolder-Enumeration besondere Systemordner wie Programme, Desktop und AutoStart als Link-Ziel angesteuert.
 
Imports IWshRuntimeLibrary
Imports System.Environment
Imports System.IO.Path


Public Class LinkCreator

  Public Shared Sub CreateLink(ByVal srcPath As String, _
        ByVal sDest As String)
    Dim Shell As WshShell = New WshShell

    Dim lnkPath As String = Combine( _
          GetFolderPath(sDest), _
          GetFileNameWithoutExtension(srcPath) & ".lnk" _
          )
    Dim shortcut As IWshShortcut = Shell.CreateShortcut(lnkPath)
    With shortcut
      .TargetPath = srcPath
      .RelativePath = lnkPath
      .Save()
    End With
  End Sub

End Class
 

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (23 kB) Downloads bisher: [ 586 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 21. Januar 2012