如何用代码将已创建的快捷方式复制的桌面？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

FileSys.CopyFile("D:\rlly\快捷方式.exe", "C:\Documents and Settings\All Users\桌面\快捷方式.exe",True)

会提示：未找到文件········

快捷方式的后缀名应该是LNK吧

你右键快捷方式查看对象名称

此主题相关图片如下：qq截图20140614114254.jpg

例如上面这个快捷方式

FileSys.CopyFile("C:\Users\Public\Desktop\鲁大师.lnk", "C:\Users\Public\Desktop\快捷方式.lnk",True)

怎么给发布后Publish目录中的exe创建桌面快键键 =》要用代码！

玩不了，太深奥了。

比较麻烦的。

1、方法一：要额外添加一个dll文件，然后写一段生成代码；

2、方法二：你直接生成一个叫.vbs的文件(内容在foxtable里直接写进去，或者有一个vbs的模板，替换路径就好)，最后用process运行这个.vbs文件。

最好foxtable能提供一下，真不知道大家发布项目后，都是手工创建快捷方式？

打包工具通常自带桌面快捷方式功能.

这个倒是的打包软件可以

在解决方案中引用上点右键，选择添加引用
在添加引用对话框中选择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

主题：如何用代码将已创建的快捷方式复制的桌面？