<<< 返回 access911.net 编程静态资料库索引页

如何用 WSH 创建桌面快捷方式

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2005-9-9  浏览人次:1381


专题地址:http://access911.net/fixhtm/72FAB11E11DCE6F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何用 WSH 创建桌面快捷方式

 


需要 WINDOWS 支持 WSH


Public Sub CreatShortcut_desktop()
'请先引用 Windows Script Host Object Model

    Dim strDesktop As String
    Dim strPrograms As String
    Dim wsh As New WshShell
    Dim objShellLink As WshShortcut
    Dim strAppPath As String
    
    strAppPath = SysCmd(acSysCmdAccessDir)
    strDesktop = wsh.SpecialFolders("Desktop")
    Set objShellLink = wsh.CreateShortcut(strDesktop & "\access911.lnk")
    '如果是要在当前用户的“快速启动”工具栏里面创建快捷方式可以用如下代码:
    'Set objShellLink = wsh.CreateShortcut(Environ("USERPROFILE") & "\Application Data\Microsoft\I.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB11E11DCE6F3.htm

 


上一篇:数据访问接口体系及数据对象模型探讨

下一篇:关于月结存年结存功能的设计原理

2017年2月22日生成静态资料