為大家介紹vbs屬性之size屬性,供大家學習參考。
Size 屬性
對于文件,返回指定文件的字節數;對于文件夾,返回該文件夾中所有文件和子文件夾的字節數。方便我們判斷文件的大小。
說明
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 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的文件生成時間與大小,來確認是否需要覆蓋第二個文檔f2,大家可以根據需要自己獲取。
新聞熱點
疑難解答