[ホーム] ＞ [VBScript FAQ 一覧] ＞ [テキストファイルを新規に作成し書き込むサンプル]

テキストファイルを新規に作成し書き込むサンプル | VBScript / VBA FAQ

Excel VBA にて新規にファイルを作成し、そのファイルに書き込むサンプルコードです。

サンプル========================================

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSOFileToWrite = objFSO.OpenTextFile("c:\temp\test.txt" , ForWriting , True)

objFSOFileToWrite.Write "テスト" & Chr(13) & Chr(10)
objFSOFileToWrite.Close
set objFSOFileToWrite = nothing
Set objFSO = Nothing
================================================

[ホーム] ＞ [VBScript FAQ 一覧]