お世話になります。　VB6

CommonDialog1.ShowSave
で保存のダイアログを表示させた場合、ファイル名の場所に
拡張子を付けなかった場合、拡張子のないファイルが保存
されてしまいます。

拡張子のない場合は、自動で拡張子（直下の[ファイルの種類]で指定されている）
を付ける方法はありませんか？

よろしくお願いします。

> 拡張子のない場合は、自動で拡張子（直下の[ファイルの種類]で指定されている）
> を付ける方法はありませんか？

単一の拡張子の場合は、このような方法が使えます。

(案1) 開く前に、DefaultExt を指定しておき、ShowSave 後に
      Flags に CdlOFNExtensionDifferent のフラグが追加されているかをチェック。

(案2) ShowSave 後に、FileName の末尾が期待する拡張子かを確認。


もう少し複雑に、拡張子の異なる複数の Filter がある場合は、

(案3) ShowSave 後に、FilterIndex を基にして期待する拡張子を調べ、
      それが FileName の末尾に一致しているかどうかを確認。