【Access小品】创建文件(夹)快捷方式

卡西达

1. Function CrtShortcut(Myname As String)
   
2. '引用：Windows Script Host Object Model
   
3. '功能：在桌面创建快捷方式
   
4. Dim strDesktop As String
   
5. Dim objShellLink
   
6. Dim strname As String
   
7. Dim wsh As New WshShell
   
8. strname = Mid(Myname, InStrRev(Myname, "\") + 1)
   
9. strDesktop = wsh.SpecialFolders("Desktop")
   
10. Set objShellLink = wsh.CreateShortcut(strDesktop & "\" & strname & ".lnk")
    
11. objShellLink.TargetPath = Myname
    
12. objShellLink.WorkingDirectory = strDesktop
    
13. objShellLink.Save
    
14. End Function

复制代码

附件下载：创建文件快捷方式.rar