コモンダイアログを使用してファイル保存する場合の拡張子の指定について（初心者）

こんばんは
ＶＢ初心者です。

コモンダイアログを使用してファイルを保存する場合に"ファイル名＋拡張子"を入力しないと拡張子なしのファイルで保存されてしまいます。自動的に任意の拡張子を付与することは出来るのでしょうか？

よろしくお願いします。

No.2 ベストアンサー 回答者： noname#118114 回答日時： 2004/11/23 21:46

コモンダイアログのプロパティにFilterというのがあったはずです。

これはファイルオープン・ファイルセーブで基本拡張子を設定するものです。

例えば「テキストファイル(*.txt)」を基本拡張子とする場合、
書き方は「テキストファイル(*.txt)|*.txt」となります。
又、「テキストファイル(*.txt)」と「CSVファイル(*.csv)」の用に複数使いたい場合は、
「テキストファイル(*.txt)|*.txt|CSVファイル(*.csv)|*.CSV」となります。

このプロパティを設定しておけば、任意の拡張子を設定できるはずです。
因みに、「ファイル」等のカタカナは半角でも構いません。

この回答へのお礼

ありがとうございます。
おかげさまで解決しました。

お礼日時：2004/11/23 23:49

No.1 回答者： anmochi 回答日時： 2004/11/23 21:40

　それは自前で処理してください。

　自動でなんとかする機能もあったかも知れないが、名前を付けてファイルを保存ダイアログでファイル名が指定されると、その直後の行でそれを取得できるので、自分で調べて必要な拡張子を後ろにくっつけてやる方が後々のためだ。

if ucase$(right$(filename, 4)) <> ".AAA" then
filename = filename & ".AAA"
end if

べた打ちで書くとこんな感じ。.AAAをパラメータ化できるともっと汎用的なルーチンになるだろう。