国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs Size 屬性使用介紹(獲取文件大小)

2020-07-26 11:47:10
字體:
來源:轉載
供稿:網友

為大家介紹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,大家可以根據需要自己獲取。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 阿巴嘎旗| 垦利县| 吉水县| 克什克腾旗| 蕲春县| 陵川县| 凤庆县| 旬阳县| 长兴县| 宝丰县| 北海市| 钟祥市| 福安市| 大宁县| 萨嘎县| 自贡市| 荣成市| 沈阳市| 日喀则市| 定襄县| 金乡县| 大名县| 株洲县| 星座| 铁力市| 通道| 荣昌县| 东山县| 志丹县| 外汇| 高淳县| 新乡县| 保康县| 南部县| 舞钢市| 中阳县| 瑞丽市| 清水河县| 波密县| 阳江市| 隆安县|