检查文件的大小

xp20683

如何检查一个文本文件的大小,如a.txt,它的大小为1M,如何检查

walker1020

使用函数 GetROProperty  试试.如果还不行,看看 VBScript 的函数

saintlord

试试看下面的代码

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

can not run successfully
pls check it


run short of object
Line (6): "Wscript.Echo strContents".

saintlord

Wscript.Echo方法在窗口（Wscript.exe 中）或“命令提示符”窗口（Cscript.exe 中）显示参数。
你可以不用Wscript.Echo，直接在程序里把strContents的值赋给变量

xp20683

但是为什么我将上面段话运行一下,出现Wscript对象不存在错误?

hyhbeyond

Dim objFSO,objFile,s
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\test.txt")
s=objFile.size
msgbox(s)