婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > vbs Size 屬性使用介紹(獲取文件大小)

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

熱門標簽:哪里有便宜的地圖標注公司 神行者美術館地圖標注 如何用機器人進行電銷 百度地圖標注點距離代碼 齊齊哈爾高德地圖標注店 除了地圖標注還有這種生意嗎 東營快遞外呼系統 佛山真人電銷機器人廠家 地圖標注政府哪個部門管

為大家介紹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 fso
Set fso = CreateObject("Scripting.FileSystemObject")
f1="d:\webroot\news.html"
f2="d:\webroot2\news.html"
fsize=3000
set fn2=fso.GetFile(f1)
flsize2=fn2.size
fldate2=fn2.datelastmodified
set fn=fso.GetFile(f2)
flsize1=fn.size
fldate1=fn.datelastmodified
If fso.FileExists(f1) and flsize2>fsize and fldate2>fldate1 Then
fso.getfile(f1).copy(f2)
if err.number=0 then WriteHistory "成功"now()".........","log.txt"
end if

Sub 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.Close
End Sub

主要功能是判斷f1的文件生成時間與大小,來確認是否需要覆蓋第二個文檔f2,大家可以根據需要自己獲取。

標簽:四平 鶴壁 邢臺 銅川 西安 湖州 文山 海口

巨人網絡通訊聲明:本文標題《vbs Size 屬性使用介紹(獲取文件大小)》,本文關鍵詞  vbs,Size,屬性,使用,介紹,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《vbs Size 屬性使用介紹(獲取文件大小)》相關的同類信息!
  • 本頁收集關于vbs Size 屬性使用介紹(獲取文件大小)的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 和平县| 禹州市| 新巴尔虎右旗| 会宁县| 惠安县| 新密市| 资中县| 吴江市| 象州县| 萨迦县| 丰镇市| 汾阳市| 泾阳县| 普安县| 皮山县| 济阳县| 綦江县| 开平市| 巴东县| 会东县| 贵德县| 呼伦贝尔市| 三江| 武川县| 萨嘎县| 阜南县| 青冈县| 运城市| 敖汉旗| 油尖旺区| 多伦县| 鲁山县| 陕西省| 霍山县| 广饶县| 乌拉特前旗| 高州市| 漠河县| 中阳县| 北川| 卫辉市|