HSPTV!掲示板

#include "hspext.as"
dialog"",16,""
bc=refstr
name="DRBG"
hozon="(C:)"
onexit gosub *exit
screen 0,400,200,16
title ""+name+"セットアップヴィザート"
*hello
	cls
color 192,192,192:boxf
pos 0,0
color
font "ＭＳ 明朝" ,25 , 16		; フォントを設定
mes ""+name+"のセットアップヴィザート"
pos 0,25
color
font "ＭＳ 明朝",15,16
mes "この、インストーラは、\n○○○○アーカイバーにより、作成されています。"
objsize 100,20 
pos 200,180
button goto "次へ" ,*set
pos 300,180
button gosub "キャンセル" ,*exit
stop
*set
	cls
color 192,192,192:boxf
pos 0,0
color
font "ＭＳ 明朝" ,25 , 16		; フォントを設定
mes ""+name+"のセットアップします。\n保存場所を指定してください。"
pos 300,150
button goto "選択" ,*self
pos 10,100
objsize 380,30
input hozon
objsize 100,20 
pos 100,180
button goto "戻る" ,*hello
pos 200,180
button goto "次へ" ,*up
pos 300,180
button gosub "キャンセル" ,*exit
stop
*up
;bc=""+dir_cur+"\\"+"DRBG.exe" 
bcopy bc,hozon
cls 2
pos 0,0
mes "無事終了しました"
objsize 100,20 
pos 300,180
button gosub "終了" ,*exit
stop
*exit
	dialog "終了してよろしいでしょうか？",2,"終了しますか？"
	if stat=7:return
	end
*self
selfolder hozon,""
hozon=refstr
goto *set

インストーラを作るため努力しました。
しかし、なぜか４８行めで止まります。
何故でしょうか。
もし暇があられるなら、
フォルダをコピーするにはどうすればいいのでしょうか。
お教えてください。

最初のdialogでキャンセルをクリックし、次に保存場所を指定しないで「次へ」をクリックするとエラーが起こるようです。

>しかし、なぜか４８行めで止まります。
>何故でしょうか。
　そうなるようにスクリプトを書いたからです。

　48行目の前に「assert」と書くとデバッグウィンドウが
表示されるので、bcやhozonの内容を調べてみましょう。

ダイアログが選択されたらstatを確認し、キャンセルがクリックされていたら
*exitへgosubで飛ぶようにすればライセンさんの言ってるようなバグは回避できます。
実行したところLine48でファイルが見つからずエラーになってしまいます。