用 vb 怎样 实现 在某一文件夹下创建一个快捷方式呢?(不想引用 *.dll)
用 vb 怎样 实现 在某一文件夹下创建一个快捷方式呢(不想引用 *.dll) ?

Option Explicit

Private Sub Command1_Click()

     CreateProgManGroup Me, "测试", "test.grp"
     CreateProgManItem Me, "d:\ghost.exe", "Ghost"
     CreateProgManItem Me, "d:\setupQQ.exe", "QQ"

End Sub

Sub CreateProgManGroup(X As Form, GroupName$, GroupPath$)
     Dim i As Integer
     X.Label1.LinkTopic = "ProgMan|Progman"
     X.Label1.LinkMode = 2
   Rem 空循环使DDE有时间执行
     For i = 1 To 10
         DoEvents
    Next
     X.Label1.LinkTimeout = 100
    Rem LinkExecute 是在DDE通道中传送这样的命令
     '──建立一个名为GroupName $的程序组。
     X.Label1.LinkExecute "[ CreateGroup (" + GroupName$ + Chr$(44) + GroupPath$ + ") ]"
     X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
     X.Label1.LinkMode = 0
End Sub


Sub CreateProgManItem(X As Form, CmdLine$, IconTitle$)
     Dim i As Integer
     X.Label1.LinkTopic = "ProgMan|Progman"
     X.Label1.LinkMode = 2
     For i = 1 To 10
         DoEvents
     Next
     X.Label1.LinkTimeout = 100
     X.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44) + IconTitle$ + Chr$(44) + ", ,) ]"
     X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
     X.Label1.LinkMode = 0
     Screen.MousePointer = 0
End Sub

这是我找到的一段代码 ,怎样修改它,使可以实现上述功能 呢？如在Ｃ盘下创建一个ＱＱ．ｌｎｋ
[解决办法]
http://www.cnblogs.com/szyicol/archive/2006/09/29/517817.html
[解决办法]
http://topic.csdn.net/u/20080726/02/af84b896-e627-4e28-8d01-a8e8a2508d12.html
[解决办法]
http://topic.csdn.net/u/20070728/18/c560559e-97ad-4b3a-8eb3-c4278b4dec15.html
[解决办法]
.......来迟了,顶
[解决办法]
http://topic.csdn.net/u/20080328/15/9152a78b-05b4-4c04-810d-15ad59408d33.html