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

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

2020-08-12 10:13脚本之家 VBS

为大家介绍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