VB2005でショートカットを作成する
以下のサンプルは、"All Users"のスタートアップにアプリケーションAP.exeのショートカットを作成します。
AP.exeは、引数とワークのフォルダにあるファイルを使います。
Dim objShell As Object = CreateObject("WScript.Shell") Dim objShortcut As Object = objShell.CreateShortcut("C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\AP.lnk") objShortcut.Description = "説明" '省略可能 objShortcut.TargetPath = "C:\Program Files\AP\AP.exe" 'リンク元の実行ファイル名 objShortcut.Arguments = "STARTUP" '実行ファイル名の引数(省略可能) objShortcut.WorkingDirectory = "C:\Program Files\AP" 'ワークのフォルダ(省略可能) objShortcut.Save()
ちなみに、"All Users"のスタートアップフォルダにショートカットを作成すると、すべてのユーザがログインした時にそれが自動実行されます。
また、スタートアップフォルダにはショートカットを置き、実行ファイルそのものではNGです。