名前をつけて保存ダイアログAPIの戻り値に拡張子をつけるには？ (ID:84044)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 APIのGetSaveFileNameですが、 戻り値に拡張子がつきません。後で拡張子をつけようとするのですが、 なぜか文字列の結合ができません。なぜでしょうか？プログラムを載せるのでよろしくお願いします。 'OPENFILENAME構造体の設定 .flags = OFN_PATHMUSTEXIST Or _ OFN_FILEMUSTEXIST Or _ OFN_HIDEREADONLY .hInstance = App.hInstance .hwndOwner =フォームのハンドル .lpstrTitle = "ファイルを保存" .lpstrFilter = "TextFile" & chr(0) & "*.txt" & chr(0) .lStructSize = Len(OFN) .nMaxFile = 250 .lpstrFileTitle = String(250, Chr(0)) .nMaxFileTitle = 250 .lpstrFile = String(250, Chr(0)) '戻り値がc:\windows\testの場合 '戻り値格納変数はSaveFileNameです。 'Dim SaveFileName As String if not Right(SaveFileName,3)="txt" then SaveFileName=SaveFileName + ".txt" End If Open SaveFileName For OutPut As #1 Dim A As String A="ABCDEFG" Print #1,A Close #1 これでファイルを書こうとするのですが、なぜか 拡張子がない状態で保存されます。なぜでしょうか？