用代碼創(chuàng)建程序的快捷方式到桌面一法

咱家是貓 · 發(fā)表于 2010-1-28 11:26:07

本帖最后由咱家是貓于 2011-8-11 16:50 編輯

Private Sub CreateShortCutOnDeskTop(ByVal Name As String, ByVal IconLocation As String)
Dim x As New IWshRuntimeLibrary.IWshShell_Class
Dim y As IWshRuntimeLibrary.IWshShortcut_Class
Set y = x.CreateShortcut(x.SpecialFolders.Item("AllUsersDesktop") & "" & Name & ".lnk")
y.TargetPath = CurrentProject.Path + "" & CurrentProject.Name
y.IconLocation = IconLocation
y.WorkingDirectory = CurrentProject.Path
y.Save
End Sub

復制代碼

游客，如果您要查看本帖隱藏內容請回復

liaoqiang234 · 發(fā)表于 2010-1-28 12:00:27

前兩天已經(jīng)看到類似解決辦法，不知有何不同

zxklzxm1983 · 發(fā)表于 2010-1-28 12:37:41

謝謝

asklove · 發(fā)表于 2010-1-28 13:34:19

看看，學學

82077802 · 發(fā)表于 2010-1-29 05:20:41

看看，學學

c101 · 發(fā)表于 2010-1-30 00:57:59

謝謝

kisssprite · 發(fā)表于 2010-1-30 08:07:14

真是無所不能

沙漠孤鷹 · 發(fā)表于 2010-1-30 23:34:55

學習一下。

yanwei82123300 · 發(fā)表于 2010-2-1 08:10:41

看看，學學

goto2008 · 發(fā)表于 2010-2-4 16:08:55

謝謝大哥分享

帳號		自動登錄	找回密碼
密碼			注冊

[模塊/函數(shù)] 用代碼創(chuàng)建程序的快捷方式到桌面一法

群介紹
主題無相 (隨機顯示版	同地區(qū)群塊其他地區(qū))