テキストファイルを作成（CreateTextFile メソッド）
FileSystemObject（FSO）を使用して、テキストを作成します。FileSystemObject（FSO）のインスタンスを生成する方法は、ファイルシステムオブジェクト（FileSystemObject）の使い方 を参照してください。
【書式】
object.CreateTextFile ( filename [, overwrite ,unicode ] )
引数・戻り値
- object ・・・ FileSystemObject オブジェクト または、Folder オブジェクト を指定します。
- filename ・・・ 作成するテキストファイルのパスを含む名前を文字列で指定します。
- overwrite ・・・ filename で指定したファイルが存在する場合に、上書きするかどうかを示す Boolean の値を指定します。True を指定した場合、上書きし、False を指定した場合は上書きしません。既定値は、False です。
- unicode ・・・ Unicode ファイルを作成するか、ASCII ファイルを作成するかを示す Boolean の値を指定します。Unicode ファイルとして作成する場合は True、ASCII ファイルとして作成する場合は False を指定します。省略した場合は、ASCII ファイルが作成されます。
- 戻り値 ・・・ 新規作成されたテキストファイルを表す TextStream オブジェクト。
引数 overwrite が False の場合、または省略した場合は、引数 filename が既に存在するとエラーになります。
FSO を使ったテキストファイルの使い方については、FileSystemObject：テキストファイルを操作する（TextStream オブジェクト） を参照してください。
CreateTextFile メソッド 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub Sample_CreateTextFile() Dim fso As New FileSystemObject Dim myFile As TextStream Set myFile = fso.CreateTextFile( _ FileName:="C:\Documents\data\mytext1.txt", _ overwrite:=True, _ Unicode:=False) myFile.WriteLine ("おはようございます！") myFile.WriteLine ("さようなら。") myFile.Close End Sub |
実行結果
作成されたテキストファイルの内容
