您好,登錄后才能下訂單哦!
本篇文章為大家展示了vbs中如何使用Size屬性,內(nèi)容簡明扼要并且容易理解,絕對(duì)能使你眼前一亮,通過這篇文章的詳細(xì)介紹希望你能有所收獲。
Size 屬性
對(duì)于文件,返回指定文件的字節(jié)數(shù);對(duì)于文件夾,返回該文件夾中所有文件和子文件夾的字節(jié)數(shù)。方便我們判斷文件的大小。
說明
object.Size
object 應(yīng)為 File 或 Folder 對(duì)象的名稱。
Folder 對(duì)象的 Size 屬性示例:
Function ShowFolderSize(filespec) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(filespec) s = UCase(f.Name) & " 大小為 " & f.size & " 字節(jié)。" ShowFolderSize = s End Function
有時(shí)候我們需要獲取一些文件的大小,來實(shí)現(xiàn)是否需要復(fù)制,下面是億速云小編寫的代碼
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的文件生成時(shí)間與大小,來確認(rèn)是否需要覆蓋第二個(gè)文檔f2,大家可以根據(jù)需要自己獲取。
上述內(nèi)容就是vbs中如何使用Size屬性,你們學(xué)到知識(shí)或技能了嗎?如果還想學(xué)到更多技能或者豐富自己的知識(shí)儲(chǔ)備,歡迎關(guān)注億速云行業(yè)資訊頻道。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。