VBS 如何读取没有后缀名的文本文件总是提示已超出文件尾,是怎么回事?我用的:Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Windows\System32\drivers\etc\hosts", ForReading)
ReadAllTextFile = f.ReadAll
Set f = fso.OpenTextFile("C:\Windows\System32\drivers\etc\hosts", ForReading)
ReadAllTextFile = f.ReadAll
没问题
可以打开,估计是权限或者防火墙问题
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