コマンドダイアログ（ファイル操作編）（続く）

しょしん 2004-01-11 23:58:11 No: 111228

何度もすみません、ｍ__ｍ完璧だと思ったのですが、不思議な現象が起きてしまいます・・・教えてください。

コマンドダイアログを使って保存・読み込みを作りました。

プログラムを立ち上げ、aaa.txtで保存します。
そして読み込みをクリックするとaaa.txtにすでに表示があるのですが
キャンセルを押してもaaa.txtが読み込まれてしまいます。

CommonDialog1.ShowOpen
filename1 = CommonDialog1.filename

Open filename1 For Input As #1
Input #1, a
Close #1

なぜなんでしょうか？これが出来れば完成ですのでどうか
お教えください。

くりちゃん URL 2004-01-12 04:28:50 No: 111229

ユーザーが "キャンセル" ボタンをクリックした場合の処理が必要です。

CommonDialog1.CancelError = True
On Error GoTo ErrorHandler

CommonDialog1.ShowOpen

    filename1 = CommonDialog1.FileName

    Open filename1 For Input As #1
    Input #1, a
    Close #1

ErrorHandler:
'"キャンセル"がクリックされた場合の処理
Exit Sub(又は Exit Function)