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