HSPTV!掲示板

HSPEXTプラグインのselfolder命令をスクリプトにして実行ファイルを作成すると、
selfolder命令部分で「内部エラーが発生しました(38)」と表示されます。
HSP 3.5 を使っているので、「C:\hsp35\sample\hspext\folder.hsp」で同様の処理を
させてもエラーが発生します。HSP内にあるselfolder命令が使われているアプリ(HSP3Dish
Helperなど)は問題ないのに、新たにEXEファイルにするとエラーが起こるのはどうし
てでしょうか?解決策を教えてください。以下ソースです。

#include "hspext.as"


	;	ディレクトリ一覧表示サンプル
	;	(CHDIRを押すと、入力したディレクトリに移動します)
	;
	sdim dirbuf,32000
	dirbuf=""
	sel=0
	ad=""
	objsize 200,24:pos 0,30
	listbox sel,200,dirbuf
	button "Browse",*chg
*getdir
	color 255,255,255:boxf 0,0,640,24
	color 0,0,0:pos 0,0:mes "DIR="+curdir
	dirlist dirbuf,"*.*"
	objprm 0,dirbuf
	stop
*chg
	selfolder ad,"フォルダを選んでください。"  //エラー発生部分
	if stat : dialog "キャンセルされました" : stop
	chdir ad
	if stat : dialog "ERROR!"
	goto *getdir

すみません、COMコンポーネントを使用することで解決しました。
これなら実行ファイルにしてもエラーは起きません。一応ソース貼っときます。

newcom app,"Shell.Application" //COMコンポーネント呼び出し
comres res
app->"BrowseForFolder" hwnd,"",$41  //フォルダブラウザの設定
if varuse(res) {
	res->"Items"
	res->"Item"
	mes res("Path")   //パスの書き出し
}
stop