HomeVisual Basic技術項目 デスクトップにショートカット作成

デスクトップにショートカット作成

Private Sub MakeShorCut(ByRef exe_path As String, ByRef shortcut_name As String)

    Dim strFolder As String
    Dim objWSHShell As Object
    Dim objShortcut As Object

    objWSHShell = CreateObject("WScript.Shell")
    strFolder = objWSHShell.SpecialFolders("Desktop")

    objShortcut = objWSHShell.CreateShortcut(strFolder & "\" & shortcut_name & ".lnk")

    With objShortcut
        .TargetPath = objWSHShell.ExpandEnvironmentStrings(exe_path)
        .WindowStyle = 4
        .Save()
    End With

End Sub



ページトップへ

データベース

サーバ

Copyright (C) MadCap. All Rights Reserved.