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

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

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