51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2425|回复: 6
打印 上一主题 下一主题

[原创] 检查文件的大小

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-3-15 09:16:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如何检查一个文本文件的大小,如a.txt,它的大小为1M,如何检查
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    2#
    发表于 2007-3-15 09:25:27 | 只看该作者
    使用函数 GetROProperty  试试.如果还不行,看看 VBScript 的函数
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
    发表于 2007-3-15 09:30:25 | 只看该作者
    试试看下面的代码

    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 编辑 ]
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2007-3-15 11:29:17 | 只看该作者
    can not run successfully
    pls check it


    run short of object
    Line (6): "Wscript.Echo strContents".
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2007-3-15 12:02:20 | 只看该作者
    Wscript.Echo方法在窗口(Wscript.exe 中)或“命令提示符”窗口(Cscript.exe 中)显示参数。
    你可以不用Wscript.Echo,直接在程序里把strContents的值赋给变量
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
     楼主| 发表于 2007-3-15 13:45:08 | 只看该作者
    但是为什么我将上面段话运行一下,出现Wscript对象不存在错误?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2007-3-15 15:11:24 | 只看该作者
    Dim objFSO,objFile,s
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile("C:\test.txt")
    s=objFile.size
    msgbox(s)
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-13 04:16 , Processed in 0.104025 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表