vbs读取文件方法Functionreadfile(readfilepath)

'OnErrorResumeNext

Setfs=CreateObject("Scripting.FileSystemObject")

Setfile=fs.OpenTextFile(readfilepath,1,false)

readfile=file.readall

file.close

setfs=nothing

endFunction