谢谢版主的奖励哦！

收藏了

晕

你的回复是我纵横论坛（哈哈，我吹牛）这么长时间见到的最牛的回复！

晕

你的回复是我纵横论坛（哈哈，我吹的）这么多年看到的最牛X的回复！哈哈

这个API可以完成创建快捷方式的功能：
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