'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
更多文章请关注《万象专栏》
转载请注明出处:https://www.wanxiangsucai.com/read/cv165595