VB6 名前を指定して保存する際に・・・

こんにちわ。
ファイルを保存する際のコードを考えて作ったのですが、少し困ったので教えてください。
コードは・・・
With CommonDialog1
.CancelError = True
.DialogTitle = "保存ファイル名指定"
.DefaultExt = ".txt"
.Filter = "テキストファイル(*.txt)|*.txt"
.FilterIndex = 1
.ShowSave
End With

On Error GoTo aaa

CommonDialog1.ShowSave
Open CommonDialog1.FileName For Binary As #1

Put #1, , Text2.Text
Close #1
Text2.Text = ""

Exit Sub
aaa:
If Err.Number = 32755 Then
MsgBox "キャンセル"
End If

これなんですが、text2の内容を保存する際に保存名を入れますが、一度保存OKを押すと「ファイル名.txt」となるのはいいんですが本当は１回OKを押した時点でtxtファイルとして保存できるようにしたいので、どなたか分かる方アドバイスお願いします。

No.1 ベストアンサー 回答者： bouyapin 回答日時： 2004/06/29 08:42

1>With CommonDialog1

2>.CancelError = True
3>.DialogTitle = "保存ファイル名指定"
4>.DefaultExt = ".txt"
5>.Filter = "テキストファイル(*.txt)|*.txt"
6>.FilterIndex = 1
7>.ShowSave
8>End With
>
9>On Error GoTo aaa
>
10>CommonDialog1.ShowSave
11>Open CommonDialog1.FileName For Binary As #1
…省略…
7行目と 10行目で2回CommonDialogをShowさせているからでしょう。
7行目は消して On Error GoTo の後の10行目を残してみるといいです。

この回答へのお礼

ありがとうございました。解決いたしました。
showsaveをあまり理解してなかったので、つかいかたがこれでいいのかな？と自身がありませんでした。

お世話になりました。

お礼日時：2004/06/29 09:52