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

名前

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

本文 すみません。分かりません。 自分で作ったのに構造がうっとうしくて すっかり忘れてしまいました。 でも、重要なのは キーナンバーを増やしながら、文字を組み立て、 その文字にナンバーを足し(&)、出力する。 ということです。あとこのキー数は1415個です。 一応VBのバージョンを作りました。 Private Sub Command1_Click() 5 On Error GoTo Ero DoEvents H = H + Y X = X + 1 If PER <> Int(X / 1415 * 100) Then label2.Caption = PER + "%チェック完了" If H <> Int(H) Then H = Int(H) If H <> Int(H) Then GoTo 5: Y = Y + 1 If H = 1000410# 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 Exit Sub If N$ = "the calculator 2019.998992.key" Then Exit Sub GoTo 5: Ero: If Err.Number = 63 Then MsgBox "キーに不良を発見" MsgBox "At " + N$ On Error GoTo 0 End If End Sub 変だったら教えてください。