OTBEditで外部プログラムを起動 2

前のOTBEditで外部プログラムを起動の別バージョン。
下記のvbsファイルと同じディレクトリに"app"という名前でフォルダを作り
その中に登録したい実行ファイルのショートカットなどを入れる。
（フォルダ名を変えたい場合、4行目の"app"を変更）
ショートカットなどの場合

×test.exe.lnk
○test.lnk

のように、名前に"."が含まれるとペケ。
OTBEdit側の設定は前のと一緒。
↓vbsファイル
option explicit dim sfo,bff,wss dim foldername,cd,app_dir foldername="app" set sfo=createobject("scripting.filesystemobject") cd=sfo.getparentfoldername(wscript.scriptfullname) app_dir=sfo.buildpath(cd,foldername) if sfo.folderexists(app_dir)=false then sfo.createfolder(app_dir) set bff=createobject("shell.application").browseforfolder(0,"プログラムを選択",&h4000,app_dir) if not bff is nothing then if bff=foldername then wscript.quit set wss=createobject("wscript.shell") wss.run chr(34)&sfo.buildpath(app_dir,bff)&chr(34)&chr(32)&chr(34)&wscript.arguments.item(0)&chr(34) else wscript.quit end if set sfo=nothing set bff=nothing set wss=nothing

勉強がてらあちこちのサンプルを参考にして
見よう見真似で書いたお気に入りを管理するHTA。
保存されているファイルを編集中でなきゃ使えないけど･･････。
37行目にOTBEditのパスを記入し拡張子をHTAに。
そのまま上記のappフォルダに入れてもいいけど
iniファイルが作成されるので、ショートカットを入れた方がいい。
削除や並び順は手動で（行の最後には改行が必要）。
↓htaファイル
<html> <script type="text/vbscript"></script> <head> <title>お気に入り</title> <hta:application id="fav" scroll="no"> </head> <style type="text/css"></style> <body onkeydown="ckey()"> <select size="10" name="ff" style="width: 100%; height:90%" multiple></select> <div class="run" style="margin-top: 8px"> <input type="button" value="開く(O)" onclick="f_load()" accesskey="o"> <input type="button" value="登録(S)" onclick="f_write()" accesskey="s"> </div> </body> <script type="text/vbscript"></script> </html>