国产探花免费观看_亚洲丰满少妇自慰呻吟_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,大家可以根據需要自己獲取。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 芒康县| 民权县| 蒙自县| 南雄市| 玉山县| 内黄县| 长寿区| 冷水江市| 二连浩特市| 武夷山市| 滁州市| 柳河县| 新宁县| 聂拉木县| 龙海市| 赣州市| 新泰市| 潼南县| 抚宁县| 报价| 曲周县| 彭山县| 胶南市| 正定县| 宽城| 西平县| 固安县| 南陵县| 津市市| 易门县| 北宁市| 湖北省| 米泉市| 孝义市| 福建省| 枞阳县| 犍为县| 万安县| 湘西| 岢岚县| 枣强县|