ShellExecute でショートカットを開く

Visual Basic 6.0
コマンドボタンでリンク先のファイルを開くプログラムを作成しています。
コマンドボタンクリック時に、下記ステートメントを入れているのですが
リンク先が、ショートカットの場合エラーして開けません。(見つかりませんのエラー)
リンク先全てを開くことは出来ないのでしょうか？
すみませんがご教授願います。

CreateObject("Shell.Application").ShellExecute C:\AAA
'AAA = ショートカット名

No.1 ベストアンサー 回答者： OMEGAT 回答日時： 2009/07/09 10:43

「AAA」というショートカットの実態は、「AAA.lnk」なので「AAA.lnk」で試してみるとどうでしょうか。

この回答への補足

失礼致しました。
CreateObject("Shell.Application").ShellExecute
でショートカットのファイルを開くことは可能でした。
原因は不明ですが、何かのエラーで開けませんでした。
.lnk 参考になりました。
お手数お掛けして申し訳ありませんでした。

補足日時：2009/07/14 11:02

この回答へのお礼

回答有難う御座います。
.lnk でショートカットファイルが開けるのは知りませんでした。

説明不測で失礼致しました。
ショートカットファイルとそれ以外も開ける様に出来ないでしょうか？
If文で通常ファイルとショートカットファイルの区別も出来ないうえ
ErrorTrapも引っかからないので困っています。

お礼日時：2009/07/09 13:24