于振海网——于振海的个人博客搜索

vb创建快捷方式代码

发布时间:2013年3月21日  更新时间:2024年5月30日
作者:未知  文章ID:9381  浏览:

调用:
mShellLnk "Internet Explorer", "C:\Program Files\Internet Explorer\iexplore.exe"

代码:
Public Sub mShellLnk(ByVal LnkName As String, ByVal FilePath As String, Optional ByVal StrArg As String, Optional ByVal IconFileIconIndex As String = vbNullString, Optional ByVal HookKey As String = "", Optional ByVal StrRemark As String = "")

    '调用说明:
    'LnkName = 快捷方式文件名,如果无路径则自动新建到桌面;无后缀名(.lnk)会自动补齐.
    'FilePath = 目标文件名,全路径.
    'StrArg = 参数,可选.
    'IconFileIconIndex = 图标所在库及索引,由逗号分隔,可选.如: "c:\windows\system32\notepad.exe,0"
    'HookKey = 热键,值未知,可选.
    'StrRemark = 备注,可选.
    '
    Dim WshShell As Object, oShellLink As Object, strDesktop As String

    Set WshShell = CreateObject("WScript.Shell")

    strDesktop = WshShell.SpecialFolders("Desktop")

    If UCase(Right(LnkName, 4)) <> ".LNK" Then
        LnkName = LnkName & ".lnk"
    End If

    If InStr(1, LnkName, "\", vbTextCompare) = 0 Then
        Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & LnkName)
    Else
        Set oShellLink = WshShell.CreateShortcut(LnkName)
    End If

    oShellLink.TargetPath = FilePath
    oShellLink.Arguments = StrArg
    oShellLink.WindowStyle = 1
    oShellLink.Hotkey = HookKey

    If IconFileIconIndex = vbNullString Then
        oShellLink.IconLocation = FilePath & ",0"
    Else
        oShellLink.IconLocation = IconFileIconIndex
    End If

    oShellLink.Description = StrRemark
    oShellLink.WorkingDirectory = Mid(FilePath, 1, InStrRev(FilePath, "\"))
    oShellLink.Save

    Set WshShell = Nothing
    Set oShellLink = Nothing

End Sub

发表评论  挑错  文章投稿  联系我
  • 上一篇:对婴幼儿粪便性状的观察可以了解其消化情况。如果婴儿粪便的臭
  • 下一篇:《张齐贤明察》参考译文
  • 【推荐文章】

  • 如何写好日记之每日生活新鲜事

    【原文】 如何写好日记之每日生活新鲜事 每一天,我们身边都会发生大大小小的事,它...

  • md5相同但内容不同的两个图片文件

    plane.jpg CRC-32:7fd01bda MD5 Hash:253dd04e87492e4fc3471de5e776bc3d SHA1 Hash...

  • 王禹偁《村行》译文、赏析

    【原文】 村行 王禹偁(chēng) 马穿山径菊初黄,信马悠悠野兴①长。 万壑有声含晚...

  • 妈妈的长发

    我爱美的妈妈, 有一头多么漂亮的长发! 她经常对着镜子梳啊梳, 呵呵,像个自恋的傻...

  • 清明节可以成为“我们的节日”

    清明临近,合肥市文明办提出将在全市开展我们的节日清明节主题活动。此消息一出,有...

  • 苏轼《西江月》注释、译文、赏析

    【原文】 西江月① 苏轼 照野弥弥浅浪,横空隐隐层霄。障泥②未解玉骢骄,我欲醉眠芳...

  • 【最新文章】

  • 如何写好作文之想象篇
  • 如何写好日记之人物影像及时摄
  • 如何写好日记之每日生活新鲜事
  • 如何教孩子诚实
  • 五讲四美三热爱
  • 中国软件大王与他的山村母亲
  • 李小云《风景》赏析
  • 电动车涨刹随动刹的刹车原理
  • 手机对孩子危害有多大?十年后的结果令人震惊
  • 西篱《怀念花溪》原文、赏析
  • md5相同但内容不同的两个图片文件
  • 王禹偁《村行》译文、赏析
  • 幼儿园数字描红学写数字A4打印-0
  • 蟋蟀鸣时易感秋
  • 光阴