用vbs实现读取文本文件的方法

vbs读取文件方法Function readfile（readfilepath）
"On Error Resume Next
    Set fs = CreateObject（"Scripting.FileSystemObject"）
    Set file = fs.OpenTextFile（readfilepath, 1, false）
    readfile=file.readall
    file.close
    set fs=nothing
end Function