脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 脚本专栏 → vbs → vbs Size

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

 更新时间：2014年05月02日 00:37:19   投稿：mdxy-dxy  
为大家介绍vbs属性之size属性，供大家学习参考。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 fso
Set fso = CreateObject("Scripting.FileSystemObject")
f1="d:\webroot\news.html"
f2="d:\webroot2\news.html"
fsize=3000
set fn2=fso.GetFile(f1)
flsize2=fn2.size
fldate2=fn2.datelastmodified
set fn=fso.GetFile(f2)
flsize1=fn.size
fldate1=fn.datelastmodified
If fso.FileExists(f1) and flsize2>fsize and fldate2>fldate1 Then
fso.getfile(f1).copy(f2)
if err.number=0 then WriteHistory "成功"&now()&".........","log.txt"
end if

Sub 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.Close
End Sub

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

相关文章

最新评论