Question

vb 创建自身桌面快捷方式

要带起始位置的代码，不要dll引用
比如我放在某个盘的“1”文件夹里，我打开在桌面自动生成快捷方式。起始位置就是某盘的1文件夹

Answer 1

调用系统“创建快捷方式”向导
　用Shell语句调用系统“创建快捷方式”向导。

　　新建一个项目，在窗体上放一个按钮，双击此按 钮，加入以下代码：

　　Private Sub Command1_Click()

　　Open App.Path ＆ "\temp.lnk" For Output As #1

　　Close #1 '以上两句在程序所在目录建立一 个临时文件

　　Shell "Rundll32.exe AppWiz.Cpl，NewLinkHere

　　"＆ App.Path ＆ "\temp.lnk"

　　End Sub

　　（注意：Shell语句中NewLinkHere后面跟着一个 空格才是引号，否则将出错。）

　　运行程序，按一下命令按钮，怎么样？“创建快 捷方式”向导出现了，如果创建成功，快捷方式将取 代临时文件temp.lnk的位置，如果选取消，temp.lnk 也会自动消失。当然，您可以在硬盘的任意位置建立 temp.lnk。

Answer 2

点击开始，在所有文件中找到vb，右击，发送到-桌面快捷方式。

追问

这个不用你说我也会，我说vb代码，

追答

不好意思，帮不到您。