Thomas Risi Softwareentwicklung

RunLink

Diese Funktion aktiviert eine Dateiverknüpfung, z.B. auf dem Desktop ...

' Ein möglicher Aufruf ... Sub CallRunLink() MsgBox RunLink("C:\Dokumente und Einstellungen\Administrator\" & _ "Desktop\Syntaxhighlighter.lnk") End Sub ' Die Funktion ... Public Function RunLink(Path As String) As Boolean Dim myShell As Object RunLink = False On Error GoTo errorhandler Set myShell = CreateObject("WScript.Shell") myShell.Run Chr(34) & Path & Chr(34) Set myShell = Nothing RunLink = True Exit Function errorhandler: Set myShell = Nothing End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)