- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何用代码将已创建的快捷方式复制的桌面？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52370)
-- 发布时间：2014/6/14 11:37:00
-- 如何用代码将已创建的快捷方式复制的桌面？
FileSys.CopyFile("D:\\rlly\\快捷方式.exe", "C:\\Documents and Settings\\All Users\\桌面\\快捷方式.exe",True)
会提示：未找到文件········
-- 发布时间：2014/6/14 11:43:00
--
快捷方式的后缀名应该是LNK吧
你右键快捷方式查看对象名称
此主题相关图片如下：qq截图20140614114254.jpg
例如上面这个快捷方式
FileSys.CopyFile("C:\\Users\\Public\\Desktop\\鲁大师.lnk", "C:\\Users\\Public\\Desktop\\快捷方式.lnk",True)
-- 发布时间：2014/6/14 23:48:00
--
怎么给发布后Publish目录中的exe创建桌面快键键 =》要用代码！
-- 发布时间：2014/6/15 9:47:00
--
参考，自己改一下来用。
http://www.cnblogs.com/linmilove/archive/2009/06/10/1500989.html
-- 发布时间：2014/6/15 19:44:00
--
玩不了，太深奥了。
-- 发布时间：2014/6/15 19:46:00
--
比较麻烦的。
1、方法一：要额外添加一个dll文件，然后写一段生成代码；
2、方法二：你直接生成一个叫.vbs的文件(内容在foxtable里直接写进去，或者有一个vbs的模板，替换路径就好)，最后用process运行这个.vbs文件。
-- 发布时间：2014/6/16 9:13:00
--
最好foxtable能提供一下，真不知道大家发布项目后，都是手工创建快捷方式？
-- 发布时间：2014/6/16 9:15:00
--
打包工具通常自带桌面快捷方式功能.
-- 发布时间：2014/6/16 9:17:00
--
这个倒是的 打包软件可以
-- 发布时间：2014/6/16 9:20:00
--
在解决方案中引用上点右键，选择添加引用
在添加引用对话框中选择COM页
然后选择"Windows Scripting Host Object Model"并添加
Imports IWshRuntimeLibrary
\'==================================================================
\'Dim Dir As String = "c:\\"
\'CreateShortCut(Dir)
\'==================================================================
Public Function CreateShortCut(ByVal path As String)
Try
Dim WshShell As New WshShell
Dim shortCut As IWshRuntimeLibrary.IWshShortcut
shortCut = CType(WshShell.CreateShortcut(path & "\\" & Process.GetCurrentProcess.ProcessName & ".lnk"), IWshRuntimeLibrary.IWshShortcut)
With shortCut
\'.TargetPath = System.Reflection.Assembly.GetExecutingAssembly.Location()
.TargetPath = Application.ExecutablePath
.WindowStyle = 1
\'.Description = System.Reflection.Assembly.GetExecutingAssembly.FullName
.Description = Application.ProductName
\'.WorkingDirectory = path
.WorkingDirectory = Application.StartupPath
.IconLocation = System.Reflection.Assembly.GetExecutingAssembly.Location() & ", 0"
.Save()
End With
Return True
Catch ex As System.Exception
Return False
End Try
End Function