输入超出文件尾 解决方法 错误 '800a003e'

出现这个问题的主要原因就是

在于没有判断自己使用readall的文件是否是空文件，如果是空就会返回这个错误。

解决方法，在使用readall之前判断文件的大小。

set copyss=fso.OpenTextFile(path,1)
Set f = fso.GetFile(path)
intSizeB = f.Size
    if intsizeb>0 then
    copystring = copyss.ReadAll
    end if