麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > 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,大家可以根據需要自己獲取。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 嗯~啊~弄嗯~啊h高潮视频 | 男人的天堂色偷偷 | 久久最新网址 | 国产一区二区精彩视频 | 精品国产一区二区三区四区阿崩 | 午夜小电影 | 中国毛片在线观看 | 国产精品亚洲一区二区三区在线观看 | 国产成人精品免费视频大全办公室 | 日韩视频一 | 91九色免费视频 | 色999中文字幕 | 精品一区二区三区免费爱 | 西川av在线一区二区三区 | chinesexxx少妇露脸 | 欧美日韩影视 | 欧美性受xxxx白人性爽 | 成人在线观看一区 | 欧美性猛交一区二区三区精品 | 欧美18一12sex性处hd | 国产免费一区二区三区最新不卡 | 中文字幕免费在线观看视频 | av免费在线观看av | 国产精品成人一区二区三区电影毛片 | 天天鲁在线视频免费观看 | 国产成人精品网站 | 最新黄色电影网站 | 国产精品夜色视频一级区 | 天天夜夜操操 | qyl在线视频精品免费观看 | 国产在线看一区 | 蜜桃网在线 | 国产精品99精品 | 黄色电影免费提供 | www久久国产 | 免费久久久 | 精品国产96亚洲一区二区三区 | 亚洲va国产va | 8x成人在线电影 | 毛片免费大全短视频 | 国产一区二区精品91 |