ファイルを作成(保存・書込)
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
ファイルを作成(保存・書込)する　　　　　　　　　　　　　　　　　(161)
使用する前に、[プロジェクト]→[参照設定]で Microsoft Scripting Runtime の参照にチェックを入
れておいて下さい。
そして Form に CommandButton１個とRichTextBoxを1個貼り付けておいて下さい。
  　 Option Explicit　　 'SampleNo=161　WindowsXP VB6.0(SP5) 2002.07.03

Private Sub Command1_Click()
'ファイルを作成(保存・書込)する
　　Dim Fso　 As New FileSystemObject
　　Dim FsoTS As TextStream

　　'指定されたファイル名のファイルを作成し、ファイルを読み込んだり、
　　'書き込むときに使用する TextStream オブジェクトを返します。
　　'True の場合上書き(ファイルが存在しなければ新規作成）

　　Set FsoTS = Fso.CreateTextFile(App.Path & "\Test01.Txt", True)
　　'RichTextBoxの内容をTest01.Txtに書き込みます。
　　FsoTS.Write (RichTextBox1.Text)
　　FsoTS.Close
End Sub

　
RichTextBox には何か記入しておいて下さい。　　　






2003/03/04