Die Community zu .NET und Classic VB.

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

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

 von ruru

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2 KB]

'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 --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 6 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.