🚀 go-pugleaf

穐谷(あきや)です。

N.Maekawa　wrote in article
 <6hn13v$mv4$1@news.kyoto-inet.or.jp>...
> 　現在VB(5.0-SP3)からプログラム・グループやスタートアップにショートカ
> ットを作成しようとしていて悩んでいます。

VB5のCDの
	Q:\VB5.0\TOOLS\UNSUPPRT\SHELLLNK
を参考にして下さい。

COMネタだから、fj.os.ms-windows.programmingの方がふさわしいかも
しれません。

タイプライブラリを作るのが面倒だ、という場合は、まだ制作中ですが、
	http://www.cmpk.or.jp/user/akiya/typelibs/
に、一応おいてあります。(タイプライブラリは再配布の必要がありません。)

で、これを使った場合、エラー処理を端よりますが、

Sub CreateShortcut(LinkTo As String, FileName As String)
	Dim objShortcut As ShellLink
	Dim islShellLink As IShellLinkA
	Dim ipfFile As IPersistFile

	On Error Resume Next
	Set objShortcut = New ShellLink
	Set islShellLink = objShortcut
	Set ipfFile = objShortcut

	Call islShellLink.SetPath(LinkTo)
	Call ipfFile.Save(FileName, 0)

	Err.Clear
End Sub

という感じです。
------------------------------------------------------------
		差出人:	穐谷 三郎
		E-Mail:	akiya@cmpk.or.jp