符合中小企业对网站设计、功能常规化式的企业展示型网站建设
本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...
商城网站建设因基本功能的需求不同费用上面也有很大的差别...
手机微信网站开发、微信官网、微信商城网站...
本篇文章为大家展示了vbs中如何使用Size属性,内容简明扼要并且容易理解,绝对能使你眼前一亮,通过这篇文章的详细介绍希望你能有所收获。
创新互联是一家专注于成都做网站、成都网站建设与策划设计,启东网站建设哪家好?创新互联做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:启东等地区。启东做网站价格咨询:18980820575Size 属性
对于文件,返回指定文件的字节数;对于文件夹,返回该文件夹中所有文件和子文件夹的字节数。方便我们判断文件的大小。
说明
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,大家可以根据需要自己获取。
上述内容就是vbs中如何使用Size属性,你们学到知识或技能了吗?如果还想学到更多技能或者丰富自己的知识储备,欢迎关注创新互联行业资讯频道。