Visual Basic Tips

ショートカットの作成（WSH）

Windows 98に搭載されたWSH（Windows Scripting Host）の機能を呼び出してショートカットを作成します。

'--------------------------------------------------------
'
'--------------------------------------------------------
Private Sub Command1_Click()
　　Dim strExePath As String
　　Dim strFolder As String
　　Dim objWSHShell As Object
　　Dim objShortcut As Object

　　If Right(App.Path, 1) = "\" Then
　　　　strExePath = App.Path & App.EXEName
　　Else
　　　　strExePath = App.Path & "\" & App.EXEName
　　End If

　　Set objWSHShell = CreateObject("WScript.Shell")

　　' ショートカットを登録したいフォルダのパス名を検索します。
　　strFolder = objWSHShell.SpecialFolders("Desktop") 'デスクトップの場合
　　'strFolder = objWSHShell.SpecialFolders("Startup") 'スタートアップの場合

　　Set objShortcut = objWSHShell.CreateShortcut(strFolder & "\テスト.lnk")

　　With objShortcut
　　　　.TargetPath = objWSHShell.ExpandEnvironmentStrings(strExePath) 'リンク先
　　　　'.WorkingDirectory = objWSHShell.ExpandEnvironmentStrings("C:") '作業フォルダ
　　　　'.IconLocation = objWSHShell.ExpandEnvironmentStrings("C:\Windows\notepad.exe, 0") 'アイコン,アイコン番号　
　　　　.WindowStyle = 4 '実行時の大きさ 3:最大化 4:通常 7:最小化
　　　　.Save
　　End With
End Sub

DownLoad vbtips113.lzh 6KB (VB6.0)