'Windows API/Global
Declare Function fCreateShellLink Lib "STKIT432.DLL" _ (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, _ ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Dim longReturn As Long longReturn = fCreateShellLink("..\..\Application Data\Microsoft\" & _ "Internet Explorer\QuickLaunch", "Shell", "C:\command.com", "")" |