VBで強固なパスチェックルーチンを組むには？ (ID:74023)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 サンプルですか、 これは、とある電卓のプログラムですが、 キーを作るほうは以下のように・・・ h=1 A H=H+Y if H<>int(H) then H=int(H) if H<>int(H) then goto A: Y=Y+1 if H=1.00041E+06 then end N$="the calculator 2019." N$=N$+trim$(str$(H)) N$=N$+".key" open N$ for append as #1 close #1 if H>1000000 then end goto A: そしてこれは読み込むほうです。 SONAR H=1 label1.caption= "キーファイルをチェック中。暫くお待さい...." ５ H=H+Y X=X+1 console 2,2 if PER<>int(X/1415*100) then label2.caption=PER;"%チェック完了" if H<>int(H) then H=int(H) if H<>int(H) then goto A: Y=Y+1 if H=1.00041E+06 then end N$="the calculator 2019 key\the calculator 2019." N$=N$+trim$(str$(H)) N$=N$+".key" PER=int(X/1415*100) open N$ for input as #1 close #1 if H=998992 then cls if H=998992 then return if N$="the calculator 2019.998992.key" then cls if N$="the calculator 2019.998992.key" then return goto ５: return そして、open ****** for input as #++++ のところでキーがなかったりしたらエラーが起きます。 エラールーチンを作ってください。 かなりわかりにくいですが、責任を持って質問は受けます。