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

在于没有判断自己使用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