用VB在桌面建立快捷方式

用VB在桌面建立快捷方式2010-03-12下面的代码向你演示在VB中如何创建一个快捷方式。

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" （ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String） As Long

Sub Command1_Click（）

Dim lReturn As Long

添加到桌面

lReturn = fCreateShellLink（"....Desktop", "Shortcut to Calculator", "c:windowscalc.exe", ""）

添加到程序组

lReturn = fCreateShellLink（"", "Shortcut to Calculator", "c:windowscalc.exe", ""）

添加到启动组

lReturn = fCreateShellLink（"Startup", "Shortcut to Calculator", "c:windowscalc.exe", ""）

End Sub