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

主頁(yè) > 知識(shí)庫(kù) > 獲得文件夾大小的VBS代碼

獲得文件夾大小的VBS代碼

熱門標(biāo)簽:如何用機(jī)器人進(jìn)行電銷 除了地圖標(biāo)注還有這種生意嗎 地圖標(biāo)注政府哪個(gè)部門管 百度地圖標(biāo)注點(diǎn)距離代碼 神行者美術(shù)館地圖標(biāo)注 東營(yíng)快遞外呼系統(tǒng) 哪里有便宜的地圖標(biāo)注公司 齊齊哈爾高德地圖標(biāo)注店 佛山真人電銷機(jī)器人廠家

核心代碼

'----------------------
'獲得文件夾的大小
'Author  = baiyang
'Version = 1.0
'Date  = 09.08.08
'----------------------
Option Explicit
On Error Resume Next
Dim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess
'判斷是不是沒有路徑參數(shù)
If WScript.Arguments.Count  1 Then
  WScript.Echo "參數(shù)無(wú)效, 第一個(gè)參數(shù)為路徑"
  WScript.Quit
Else
  strArg = WScript.Arguments(0)
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLocalFolder = objFSO.GetFolder(strArg)

If objLocalFolder = Empty Then
  WScript.Echo "Invalid Path"
  WScript.Quit
End If

longLocalFolderSize = objLocalFolder.Size

If longLocalFolderSize>=1024 And longLocalFolderSize1024*1024 Then
  strSizeMess = Round( longLocalFolderSize/1024, 3 )  " K"
  ElseIf longLocalFolderSize>=1024*1024 And longLocalFolderSize1024*1024*1024 Then
  strSizeMess = Round( longLocalFolderSize/1024/1024, 3 )  " M"
  ElseIf longLocalFolderSize>=1024*1024*1024 Then
   strSizeMess = Round( longLocalFolderSize/1024/1024/1024, 3 )  " G"
   Else
   strSizeMess = longLocalFolderSize  " B"
End If

WScript.Echo strSizeMess
Set objFSO = Nothing
Set objLocalFolder = Nothing
WScript.Quit

使用方法:

將上面的挨罵保存文件為: GetFloderSize.vbs
用法: GetFloderSize.vbs C:\windows即可。

標(biāo)簽:湖州 鶴壁 海口 邢臺(tái) 文山 西安 銅川 四平

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《獲得文件夾大小的VBS代碼》,本文關(guān)鍵詞  獲得,文件夾,大,小的,VBS,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《獲得文件夾大小的VBS代碼》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于獲得文件夾大小的VBS代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    主站蜘蛛池模板: 江孜县| 抚松县| 朔州市| 清苑县| 正蓝旗| 广西| 巫山县| 开平市| 会东县| 上饶市| 天峨县| 淮北市| 巫山县| 永清县| 保德县| 监利县| 洪江市| 达尔| 阜平县| 宾阳县| 淳化县| 勐海县| 萍乡市| 顺昌县| 沛县| 嘉祥县| 长宁区| 车险| 高密市| 祥云县| 大姚县| 自贡市| 睢宁县| 焦作市| 新绛县| 龙海市| 微博| 永修县| 甘洛县| 玛沁县| 霍州市|