51Testing软件测试论坛

标题: 检查文件的大小 [打印本页]

作者: xp20683    时间: 2007-3-15 09:16
标题: 检查文件的大小
如何检查一个文本文件的大小,如a.txt,它的大小为1M,如何检查
作者: walker1020    时间: 2007-3-15 09:25
使用函数 GetROProperty  试试.如果还不行,看看 VBScript 的函数
作者: saintlord    时间: 2007-3-15 09:30
试试看下面的代码

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)




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2