VBS 如何读取没有后缀名的文本文件总是提示已超出文件尾,是怎么回事?我用的:Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Windows\System32\drivers\etc\hosts", ForReading)
ReadAllTextFile =  f.ReadAll

解决方案 »

  1.   

    通常是权限问题,要以管理员身份运行vbs。
      

  2.   

    我手工测试了下
    没问题
    可以打开,估计是权限或者防火墙问题
    Const ForReading = 1 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFile = objFSO.OpenTextFile("C:\Windows\System32\drivers\etc\hosts", ForReading) 
    strContents = objFile.ReadAll 
    MSGBOX strContents
    objFile.Close