VB创建快捷方式的简易方法--运用Wscript.Shell

Sub SetShortCut(ByVal lnkTarget As String, ByVal lnkFilePathName As String)

On Error Resume Next
'By 同济黄正 http://fine3x.com
Dim Lnk As Object
Set Lnk = CreateObject("Wscript.Shell").CreateShortcut(lnkFilePathName)
If Lnk Is Nothing Then Exit Sub    ' MsgBox "不支持Wscript.Shell。", vbCritical:
Lnk.TargetPath = lnkTarget
Lnk.Save
Set Lnk = Nothing
End Sub