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

名前

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

本文 テキストファイルとして保存されないんですがどうしてでしょうか？ アプリケーション指定しないと開けない状態での保存になります Private Sub Command1_Click() Cdlg1.Filter = "テキストファイル(*.txt)|*.txt" & _ "すべてのファイル(*.*)|*.*" Cdlg1.FilterIndex = 1 Cdlg1.ShowSave Open Cdlg1.filename For Output As #1 Print #1, Format(Now, "general date"); Text1.Text Close #1 End End Sub