為大家介紹vbs屬性之size屬性，供大家學(xué)習(xí)參考。
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ù)制，下面是武林站長站小編寫的代碼
| Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")f1="d:/webroot/news.html"f2="d:/webroot2/news.html"fsize=3000set fn2=fso.GetFile(f1)flsize2=fn2.sizefldate2=fn2.datelastmodifiedset fn=fso.GetFile(f2)flsize1=fn.sizefldate1=fn.datelastmodifiedIf fso.FileExists(f1) and flsize2>fsize and fldate2>fldate1 Thenfso.getfile(f1).copy(f2)if err.number=0 then WriteHistory "成功"&now()&".........","log.txt"end ifSub 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.CloseEnd Sub |
主要功能是判斷f1的文件生成時間與大小，來確認(rèn)是否需要覆蓋第二個文檔f2，大家可以根據(jù)需要自己獲取。
新聞熱點
疑難解答
圖片精選
