コモンダイアログコントローラー（VB6）

質問

お世話になります。

コモンダイアログコントローラーをつかって
ファイルを保存・読み込みをしようと思ってます。

commonddialog1.showopen
でファイルを開く

commonddialog1.showsave
でファイル名を付けて保存

というのは分かったのですが、どこを調べても
肝心の保存方法のサンプルすらありません。

ab = "今日は天気が良いです。"
このabを保存する場合

commonddialog1.showsave　の後にどのようなコードを記載すれば良いのでしょうか？

回答No.2

imogasi · ベストアンサー

Sub test01()
Dim obj As Object
Set obj = CreateObject("MSComDlg.CommonDialog")
With obj
.Filter = "すべてのファイル (*.*)|*.*"
.CancelError = False
.Showsave
End With
Open obj.Filename For Output As #1
s = InputBox("s=")
Print #1, s

Close #1
Set obj = Nothing
End Sub
Sub test02()
Dim obj As Object
Set obj = CreateObject("MSComDlg.CommonDialog")
With obj
.Filter = "すべてのファイル (*.*)|*.*"
.CancelError = False
.Showopen
End With
Open obj.Filename For Input As #1

Input #1, s
MsgBox s
Close #1
Set obj = Nothing
End Sub
１レコードの例ですがＰｒｉｎｔ＃１，Ｉｎｐｕｔ＃１の辺りを繰り回せば、多レコードに出来ます。
またＳをカンマで区切った文字列や数値すれば、多フィールドのファイルに出来ます。エクセル２０００ＶＢＡで確認済み。
プログラムでＳｅｔしているので、コモンダイアローグ・コントロールをワークシートにツールボックスから、貼りつけなくても動きます。

お礼

解決しました。
ありがとうございｍした。

補足

お世話になります。

昨日からやっておおよそ理解は出来たのですが
ファイル名を記入せずにキャンセルを押すと
エラーで「実行時エラー”75”　パス名が無効です」
と出てプログラムが中断します。

どうすれば良いでしょうか？

回答No.1

Hayashi_Trek

コモンダイアログはファイル名を決定するだけなので、
コモンダイアログがファイルを開いたり保存したりするわけではありません。

コモンダイアログの使い方としては、次ぎのようになると思います。
commonddialog1.showsave
FileName = commonddialog1.Filename
Open FileName for Output As #1
Print #1, ab
Close #1

Open命令の詳しいことはヘルプを見てください。

お礼

ありがとうございます。
応用してやってみたら保存することも
読み出す事も出来ました。

補足

すみません、ファイルの種類はどうやって決めたりするんでしょうか？