HSPTV!掲示板

以下のプログラムをご覧ください。

#uselib "kernel32.dll"
#define INI "./設定ファイル.ini"
#func saveini "WritePrivateProfileStringA" sptr,sptr,sptr,sptr
#func loadini "GetPrivateProfileStringA" sptr,sptr,sptr,var,int,sptr

*Option
	screen 0,420,200,4 : title "オプション設定" : syscolor 15 : boxf
	sdim opa,255
	loadini "Pass","XOPS_Pass","",opa,100,INI
	input opa, 230, 20, 17
	button goto "参照", *OptionOPEN
	button goto "OK", *OptionSAVE
	stop

*OptionOPEN
	dialog "html", 16, "HTMLファイル"
	EXEfname = refstr
	opa = getpath(EXEfname,32)
	objprm 0,opa
	stop

*OptionSAVE
	sdim opb,255
	opb = opa
	saveini "Pass","Pass_A",opb,INI
	wb = 5
	end

実行してみれば分かりますが、「ある HTMLファイル」へのディレクトリ情報を
「設定ファイル.ini」に保存する物です。

ここで問題が・・。
OKを押して「設定ファイル.ini」を保存するときに、
入力ボックス内のディレクトリ情報先に（iniファイルが）保存されてしまいます。

どうしたら、入力ボックス内のディレクトリ情報に惑わされる事無く
指定した場所に上書き保存されるでしょうか？

> どうしたら、入力ボックス内のディレクトリ情報に惑わされる事無く
> 指定した場所に上書き保存されるでしょうか？

保存直前にカレントディレクトリの変更を行う。

ありがとうございます。

カレントディレクトリの変更・・・
「dirinfo」を使うのでしょうか？

> 「dirinfo」を使うのでしょうか？
いいえ、chdir命令を使います。ヘルプブラウザで検索してみてください。

ご丁寧な返信ありがとうございます。

以下のようなプログラムを追加しました。

chdir dirinfo(1)

しかし、新たな問題が出来てしまいました。

HSP本体の実行ファイルがあるディレクトリに（iniファイルが）作成されてしまうようです。
（当たり前ですが・・）

HSPファイルが保存されている（プログラムが保存されている）場所に
保存するにはどうすればいいでしょうか？

起動直後のカレントディレクトリを変数に保存しておくのはどうでしょう？

ありがとうございます。

>起動直後のカレントディレクトリを変数に保存しておくのはどうでしょう？
その手で行く事にしました。

この件は無事に解決することが出来ました。
皆様、本当にありがとうございました。