![]() |
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: [ 585 ]
|
|
|