DOSコマンドでファイルのショートカットを作る方法

質問

VBAでファイル名に日付を含むExcelファイルを日々作り出し、それと共にそれを起動するショートカット（名前は固定）を更新したいのですが、VBAからDOSコマンドを実行する方法は判ったのですが、DOSコマンドでショートカットを作る命令が在るのかどうかわかりません。またVBAから他に簡単な方法で同じことが出来る方法が在りますでしょうか？

回答No.1

BLUEPIXY · ベストアンサー

ＷＳＨを使うのが簡単です。
例えば、ＶＢＡで以下のような感じでします。
public sub mkupShortcut()
Dim objWshShell, objShortcut
Set objWshShell=CreateObject("WScript.Shell")
'CreateShortcut(ショートカットを作るフォルダ & ショートカット名（拡張子が.lnk）) サンプルはディスクトップ
Set objShortcut=objWshShell.CreateShortcut(objWshShell.SpecialFolders("Desktop") & "\ショートカット名.lnk")
'ショートカットを付けるファイル、付け替えれば更新になる。
objShortcut.TargetPath="C:\Excel\test.xls"
objShortcut.Save
End Sub

お礼

ありがとうございます。早速試してみて目的のことができる様になりました。ＷＳＨというのはWindowsShellの略ですか？便利なものがあるのですね。少し勉強してみたいと思いました。

回答No.2

BLUEPIXY

>ＷＳＨというのはWindowsShellの略ですか？
WindowsScriptingHost の略です。
ＶＢＡのようなスクリプトでウインドウズを制御するというような
バッチの拡張したようなモノです。