外部テキストファイルの文字を全て消すには？ (ID:115736)

名前

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

本文 CommonDialog1.Filter = "テキスト(*.txt)|*.txt" CommonDialog1.Flags = cdlOFNOverwritePrompt CommonDialog1.ShowSave outfile = CommonDialog1.FileName Open outfile For Append As #FileNumber Print #FileNumber, RichTextBox1.text Print #FileNumber, RichTextBox2.text ・ ・ ・ Close #FileNumber といった具合に.txtに書き込んでいくようにしています。 で、同じファイルを指定した時に、以前保存した状態の次の行から Richtextの内容が保存されていきます。 わかりますでしょうか？