首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

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

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

VB code
Option ExplicitPrivate Sub Command1_Click()     CreateProgManGroup Me, "测试", "test.grp"     CreateProgManItem Me, "d:\ghost.exe", "Ghost"     CreateProgManItem Me, "d:\setupQQ.exe", "QQ"End SubSub 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 = 0End SubSub 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 = 0End Sub

这是我找到的一段代码 ,怎样修改它,使可以实现上述功能 呢?如在C盘下创建一个QQ.lnk

[解决办法]
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

热点排行