Die Community zu .NET und Classic VB.
Menü

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

 von 

Beschreibung 

Im Gegensatz zu Tipp 74 verwendet dieser Tipp die Datei "SHELLLNK.TLB" nicht mehr, sondern nutzt Verweise auf das FSO und die Scripting Runtime. Allerdings wird hier ausdrücklich die Verwendung von Tipp 74 empfohlen

Schwierigkeitsgrad:

Schwierigkeitsgrad 2

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

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

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.

Kommentar von am 24.10.2007 um 17:17

0503: Beliebige Verknüpfung erstellen

functioniert einwandfreiii

Kommentar von Thomas am 29.03.2007 um 15:14

Kann schon jemand auf die Fragen von
Von Martin am 22.07.2006 um 20:02
was sagen?
Ich habe das gleiche Problem

Kommentar von Martin am 22.07.2006 um 20:02

Wie kann man in der Verknüpfung auch Parameter mitgeben?
z.B. C:\pfad\anwendung.exe /s

Es will mir einfach nicht gelingen. In der Verknüpfung steht es dann immer so:
C:\pfad\anwendung.exe \s

Kommentar von Alexander Ernst am 11.01.2006 um 10:50

Hallo

das Script funktioniert ganz gut- nur ich müsste nur noch wissen wie man "ausführen in" der Verknüpfung änderen kann. Weil genau dieses ist wenn man einen lnk mit dem obigen script erstellt leer.

Kommentar von Sebastian Bauer am 16.11.2003 um 15:02

Wenn ich das ganze in mein Projekt einbinde, bekomme ich für alle Zeilen die das WSH Objekt enthalten die Meldung "Index ausserhalb des gültigen Bereiches". Kann mir jemand helfen?

Kommentar von Ingmar am 20.07.2002 um 10:35

Hei, das ist klasse!, Das hat mir sehr geholfen ein eigenes Installationsprogramm was besser ist als der VuWA zu erstellen!