Script Paradigm

ファイルのテキストを取得

テキストファイルの中身を取得します。

Option Explicit
MsgBox fnReadFile("test.txt")
Function fnReadFile(strFilePath)
    Dim fsoTemp
    Dim fliTemp
    
    Set fsoTemp = WScript.CreateObject("Scripting.FileSystemObject")
    Set fliTemp = fsoTemp.OpenTextFile(strFilePath, 1, False)
    fnReadFile = fliTemp.ReadAll
    
    Set fliTemp = Nothing
    Set fsoTemp = Nothing
End Function

[] [wsh][0.0018000602722168]