ファイルに指定された数の改行文字を書き込む

サンプルソース

' ファイル操作オブジェクトを生成
Set objFso = CreateObject("Scripting.FileSystemObject")
' ファイルをOpen
Set objFile = objFso.OpenTextFile("c:\b.txt", 2, True)

objFile.WriteBlankLines 10
' ファイルをClose
objFile.Close
Set objFile = Nothing
' ファイル操作オブジェクトを解放
Set objFso = Nothing

解説

Scripting.FileSystemObjectはファイル操作をするオブジェクトです。

WriteBlankLinesで指定された数の改行文字を書き込みます。




ファイル操作



Excel VBA講座
VBScriptサンプル集

日付操作

文字列操作
     ...すべてのサンプルをみる



関連リンク
 セル、シート、ブックの参照や操作、
 書式設定に関するサンプル集。
Copyright (C) ExcelVBA@Workshop All rights reserved.