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

質問

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

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

よろしくお願いします。

回答No.2

noname#118114 · ベストアンサー

コモンダイアログのプロパティにFilterというのがあったはずです。
これはファイルオープン・ファイルセーブで基本拡張子を設定するものです。

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

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

お礼

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

回答No.1

anmochi

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

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

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