如何用VB给指定文件创建桌面快捷方式

vb创建快捷方式有以下几种方法：
1、用fCreateShellLink函数，此方法用户电脑必须有STKIT432.DLL文件。
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName AsString, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Sub
private Command1_Click()
Dim lReturn As Long
lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
End Sub
2、比较常用的是用WshShell对象创建快捷方式，此方法依赖\system32\WSHom.Ocx文件，部分电脑可能关闭了此文件权限，所以用的时候可根据错误，自动注册该组件
Dim nPath As String, sh, ShortCut
on error resume next
Set sh = CreateObject("wscript.shell")
If Err = 429 Then'判断用户电脑是否禁用了WshShell，如果禁用重新注册这个组件
Dim oca As String
oca = Environ("Windir") & "\system32\WSHom.Ocx"
If Dir(oca) = "" Then Exit Function
Shell "r