ファイルにテキストを保存
テキストファイルにテキストを保存します。
Option Explicit
Call sbWriteFile("new.txt","牛飼い")
Sub sbWriteFile(strFilePath, strText)
Dim fsoTemp
Dim fliTemp
Set fsoTemp = WScript.CreateObject("Scripting.FileSystemObject")
Set fliTemp = fsoTemp.OpenTextFile(strFilePath, 2, True)
Call fliTemp.Write(strText)
Set fliTemp = Nothing
Set fsoTemp = Nothing
End Sub