vbs Size 属性使用介绍(获取文件大小)

为大家介绍vbs属性之size属性，供大家学习参考。

Size 属性

对于文件，返回指定文件的字节数；对于文件夹，返回该文件夹中所有文件和子文件夹的字节数。方便我们判断文件的大小。

说明
object.Size
object 应为 File 或 Folder 对象的名称。

Folder 对象的 Size 属性示例：

Function ShowFolderSize(filesPEc)  Dim fso, f, s  Set fso = CreateObject("Scripting.FileSystemObject")  Set f = fso.GetFolder(filespec)s = UCase(f.Name) &
     " 大小为 " &
     f.size &
     " 字节。"ShowFolderSize = s End Function

有时候我们需要获取一些文件的大小，来实现是否需要复制，下面是小编写的代码

Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")F1="d:\webroot\news.htML"f2="d:\webroot2\news.html"fsize=3000set fn2=fso.GetFile(f1)flsize2=fn2.sizefldate2=fn2.datelastmodifiedset fn=fso.GetFile(f2)flsize1=fn.sizefldate1=fn.datelastmodifiedIf fso.FileExists(f1) and flsize2>
    fsize and fldate2>
    fldate1 Thenfso.getfile(f1).copy(f2)if err.number=0 then WrITeHistory "成功"&
    now()&
    ".........","LOG.txt"end ifSub WriteHistory(hisChars, path) Const ForReading = 1, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(path, ForAppending, True) f.WriteLine hisChars  f.CloseEnd Sub

主要功能是判断f1的文件生成时间与大小，来确认是否需要覆盖第二个文档f2，大家可以根据需要自己获取。

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！