Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
RunLink
Diese Funktion aktiviert eine Dateiverknüpfung, z.B. auf dem Desktop ...
Sub CallRunLink()
MsgBox RunLink("C:\Dokumente und Einstellungen\Administrator\" & _
"Desktop\Syntaxhighlighter.lnk")
End Sub
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
© 2001 -
by Thomas Risi