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

名前

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

本文 # 訂正 CommonDialog で指定したファイルに出力したということですね。 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 Sub みたいな感じにします。