shortcut.bas

内存搜索

Attribute VB_Name = "ShortCut"
Option Explicit
'Before use this module, you must reference Windows Script Host Object Modal from Project->Reference

Public Sub CreateShortCutOnDeskTop(ByVal Name As String, ByVal Description As String)

Dim x As New IWshRuntimeLibrary.IWshShell_Class
Dim y As IWshRuntimeLibrary.IWshShortcut_Class
Set y = x.CreateShortcut(x.SpecialFolders.Item("AllUsersDesktop") & "\" & Name & ".lnk")
y.TargetPath = App.Path & "\" & App.EXEName
y.Description = Description
y.WorkingDirectory = App.Path
y.Save

End Sub