gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbs Size 属性使用介绍(获取文件大小)由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

为大家介绍vbs属性之size属性,供大家学习参考.

Size 属性 。

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

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

Folder 对象的 Size 属性示例:

?
1
2
3
4
5
6
7
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

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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,大家可以根据需要自己获取.

最后此篇关于vbs Size 属性使用介绍(获取文件大小)的文章就讲到这里了,如果你想了解更多关于vbs Size 属性使用介绍(获取文件大小)的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com