MadCap開発サイトへようこそ

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

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

プログラム

• Java
• Visual Basic
• C#
• アセンブリ
• PHP
• Flex

データベース

• DB2
• MySQL

サーバ

• Windows