VB 5/6-Tipp 0503: Beliebige Verknüpfung erstellen II

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
' Es muss ein Verweis auf 'Microsoft Scripting Runtime' gesetzt werden.
' Es muss ein Verweis auf 'Windows Script Host Object Model' gesetzt werden.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Verweise:
' Microsoft Scripting Runtime         - scrrun.dll
' Windows Script Host Object Model    - wshom.ocx

Option Explicit

Dim FSO As New FileSystemObject
Dim WSH As New IWshShell_Class



Private Sub Command1_Click()
Dim FullName As String
Dim SCut, DestFolder As Folder
On Error Goto fehler

     'Falls Link nicht schon existiert
If Not FSO.FileExists(WSH.SpecialFolders(0) & "\Test.lnk") Then
    ' WSH.SpecialFolders(0) = All User Desktop Verzeichniss
    Set DestFolder = FSO.GetFolder(WSH.SpecialFolders(0))
    ' Erstelle einen Link mit dem Namen Test.lnk
    Set SCut = WSH.CreateShortcut(DestFolder.Path & "\Test.lnk")
    ' Verknüpfe es mit der ausführbaren Datei:
    SCut.TargetPath = App.Path & "\" & App.EXEName & ".exe"
    'Speichere dieses Element
    SCut.Save
    ' Entladen des Objektes
    Set SCut = Nothing
End If

Set FSO = Nothing
Set WSH = Nothing
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------