Office TANAKA - FileSystemObject[CreateTextFileメソッド]

【書式】

Folder.CreateTextFile(filename[, overwrite[, unicode]])

指定したファイル名を作成し、TextStreamオブジェクトを返します。

引数filenameには作成するファイル名を指定します。

引数overwriteは省略可能です。すでに同名ファイルが存在した場合に上書きするときはTrueを指定します。省略するとTrueとみなされます。

引数unicodeは省略可能です。Trueを指定するとUnicodeで作成します。Falseを指定するとASCIIファイルを作成します。省略するとFalseとみなされます。

引数overwriteにFalseを指定した場合、引数filenameに存在するファイル名を指定するとエラーになります。

CreateTextFileメソッドを実行すると、サイズ0のテキストファイルがただちに作成されます。

FolderオブジェクトのCreateTextFileメソッドは、FileSystemObjectオブジェクトのCreateTextFileメソッドと同じ働きをします。

Sub test54()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\WorkフォルダにSample.txtを作成して現在の日時を書き込みます
    With FSO.GetFolder("C:\Work").CreateTextFile("Sample.txt")
        .WriteLine Now
    End With
    Set FSO = Nothing
End Sub

Folderオブジェクト - CreateTextFileメソッド