本篇文章為大家展示了vbs中如何使用Size屬性，內(nèi)容簡明扼要并且容易理解，絕對能使你眼前一亮，通過這篇文章的詳細(xì)介紹希望你能有所收獲。

創(chuàng)新互聯(lián)是一家專注于成都做網(wǎng)站、成都網(wǎng)站建設(shè)與策劃設(shè)計,啟東網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十多年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:啟東等地區(qū)。啟東做網(wǎng)站價格咨詢:18980820575

Size 屬性

對于文件，返回指定文件的字節(jié)數(shù)；對于文件夾，返回該文件夾中所有文件和子文件夾的字節(jié)數(shù)。方便我們判斷文件的大小。

說明
object.Size
object 應(yīng)為 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 & " 字節(jié)。"
ShowFolderSize = s 
End Function

有時候我們需要獲取一些文件的大小，來實現(xiàn)是否需要復(fù)制，下面是創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，小編寫的代碼

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的文件生成時間與大小，來確認(rèn)是否需要覆蓋第二個文檔f2，大家可以根據(jù)需要自己獲取。

上述內(nèi)容就是vbs中如何使用Size屬性，你們學(xué)到知識或技能了嗎？如果還想學(xué)到更多技能或者豐富自己的知識儲備，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道。

網(wǎng)頁題目：vbs中如何使用Size屬性-創(chuàng)新互聯(lián)
本文來源：http://sd-ha.com/article40/jjpeo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、App設(shè)計、網(wǎng)站建設(shè)、品牌網(wǎng)站制作、軟件開發(fā)、網(wǎng)站排名

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)