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