如何用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 Command1Click()

Dim lReturn As Long ´添加到桌面

lReturn=fCreateShellLink("..\..\Desktop","Shortcut to Calculator","c:\windows\calc.exe","")

´添加到程序组

lReturn=fCreateShellLink("\Startup","Shortcut to Calculator","c:\windows\calc.exe","")

End Sub

原文转自：http://www.ltesting.net