コモンダイアログの保存について (ID:109582)

名前

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

本文 拡張子指定なしで保存した場合に「.txt」をつけてあげればいいと思います。 Private Sub Command1_Click() Dim SaveFile As String ・・・中略） Cdlg1.ShowSave If Right$(4, Cdlg1.filename) = ".txt" Then SaveFile = Cdlg1.filename Else SaveFile = Cdlg1.filename & ".txt" End If Open SaveFile For Output As #1 ・・・中略） End Sub 拡張子が「.txt」の場合だけに限りますが、こんな感じでも 出来るかと思います。|@_@;