Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\a.txt") '假设a.txt在C根目录下
If objFile.Size > 0 Then
Set objReadFile = objFSO.OpenTextFile("C:\a.txt", 1)
strContents = objReadFile.ReadAll
Wscript.Echo strContents
objReadFile.Close
Else
Wscript.Echo "The file is empty."
End If
[ 本帖最后由 saintlord 于 2007-3-15 09:48 编辑 ]作者: kevin_swpi 时间: 2007-3-15 11:29
can not run successfully
pls check it
run short of object
Line (6): "Wscript.Echo strContents".作者: saintlord 时间: 2007-3-15 12:02
Wscript.Echo方法在窗口(Wscript.exe 中)或“命令提示符”窗口(Cscript.exe 中)显示参数。
你可以不用Wscript.Echo,直接在程序里把strContents的值赋给变量作者: xp20683 时间: 2007-3-15 13:45
但是为什么我将上面段话运行一下,出现Wscript对象不存在错误?作者: hyhbeyond 时间: 2007-3-15 15:11
Dim objFSO,objFile,s
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\test.txt")
s=objFile.size
msgbox(s)