HSPTV!掲示板

下のプログラムを実行すると
「ファイルが見つからないか無効な名前です」
と、表示されます。
当然、このソースのあるディレクトリの中にdataディレクトリは、あります。

*modoru
	screen 0,300,300
	pos 230,0
	button "LOAD",*LOAD

stop

*LOAD
	dialog "bmp;*.bmp",16,"画像ファイル"
	if stat==0 :goto *modoru
	dialog ""+refstr+""
	buffer 1
	picload refstr
	screen 0,300,300
	file_name	=	""+refstr+""
	file_size	=	strlen (refstr)

/*保存ファイル作成用　ループ*/
	repeat file_size
	file_search	=	strmid (file_name,file_size-cnt-5,1)
	if file_search=="\\" {
		file_search	=	strmid (file_name,file_size-cnt-4,cnt)
		dialog ""+file_search+""
		bsave	"data/"+file_search+".dat" ,a
	}
	loop
/*保存ファイル制作用　ループ　終わり*/

言葉足らずですみません＾＾；
どこが間違っているのでしょうか？

例えば、選択したファイルが

E:\TEMP\sample.bmp

だとすると、２回目にヒットするのは「TEMP\sample」

data\TEMP\sample.dat

となりますから、「dataフォルダ」の中に「TEMPフォルダ」が無いと
当然エラーになりますね

どのようにしたいのか分かりませんが、ただ単に最初のセーブの後に
「break」を入れ忘れているだけとか？

一回目でエラーがでているので、その可能性はないかと・・・

「break」なんて便利な命令があるんですね〜ｗ

今まで、ループから抜ける時、ループの最後にフラグ立てて、そこに「goto」で、ループ抜けてたんで＾＾；

情報ありがとうございます＾＾

こういう事かな？

*modoru
	screen 0,300,300
	pos 230,0
	button "LOAD",*LOAD
	curdir=""+dirinfo(0)
stop

*LOAD
	dialog curdir,,"カレントディレクトリ"

	dialog "bmp;*.bmp",16,"画像ファイル"
	if stat==0 :goto *modoru
	dialog ""+refstr+""
	buffer 1
	picload refstr
	screen 0,300,300
	file_name	=	""+refstr+""
	file_size	=	strlen (refstr)

/*保存ファイル作成用　ループ*/
	repeat file_size
	file_search	=	strmid (file_name,file_size-cnt-5,1)
	if file_search=="\\" {
		file_search	=	strmid (file_name,file_size-cnt-4,cnt)
		dialog ""+file_search+""
		bsave	curdir+"/data/"+file_search+".dat" ,a
	}
	loop
/*保存ファイル制作用　ループ　終わり*/

ファイル選択ダイアログでファイルを選んだときにフォルダーも移動している？
と言う方向で考えてみましたが、情報が少なすぎるのでよく分かりません。
せめてスクリプトは何をしているのか、そして何がやりたいのかを教えて欲しいです。

osakanaさん、書き込みありがとうございます＾＾

スクリプトは、ダイアログで、画像ファイルをロードして
それに関係する数値のdatファイルを作るというものです。

なるほど、ダイアログでフォルダーも移動するんですね！
勉強になりました。

書き込みしてくれた、Dさん、osakanaさん本当にありがとうございました＾＾