Script Paradigm

ファイルにテキストを保存

テキストファイルにテキストを保存します。

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
Copyright © 2006 Hikijishi All Rights Reserved.
[] [wsh][0.00128507614135742]