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

名前

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

本文 できた。 Private Sub Command1_Click() H = 1 A: DoEvents H = H + Y If H <> Int(H) Then H = Int(H) If H <> Int(H) Then GoTo A: Y = Y + 1 If H = 1000410# 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 'キーナンバーが1000000以上になったら中止 GoTo A: End Sub Private Sub Command1_Click() H = 1 A: DoEvents H = H + Y If H <> Int(H) Then H = Int(H) If H <> Int(H) Then GoTo A: Y = Y + 1 If H = 1000410# 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 'キーナンバーが1000000以上になったら中止 GoTo A: End Sub Hの増幅方法は多種多様です。