こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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」となるのはいいんですが本当は1回OKを押した時点でtxtファイルとして保存できるようにしたいので、どなたか分かる方アドバイスお願いします。

投稿日時 - 2004-06-28 17:32:06

QNo.908024

困ってます

質問者が選んだベストアンサー

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行目を残してみるといいです。

投稿日時 - 2004-06-29 08:42:37

お礼

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

お世話になりました。

投稿日時 - 2004-06-29 09:52:57

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問