用VBscript取得每一層資料夾底下的儲存容量
檔案:CheckSpaceUsed.vbs 內容: ' 指定所有變數必須事先宣告才能使用 Option Explicit 'WScript.Echo("作業開始執行:" & Date & " " & Time) ' 宣告變數 Dim FSO, chkFolder, vbcrlf, logf ' == 開始 == vbcrlf = chrB(13) & chrB(10) ' 檔案所在之目錄 chkFolder = "C:\FTPROOT\UPLOAD" ' 建立檔案系統物件(File System Object) Set FSO = CreateObject("Scripting.FileSystemObject") ' 建立紀錄檔案 Set logf = FSO.CreateTextFile("Csize.csv", True) ' 取得目錄層所有的資料夾,目錄層下的檔案不處理 FatchFolder FSO.GetFolder(chkFolder) '關閉記錄檔 logf.Close '取得清單子程序 Sub FatchFolder(path1) Dim fid, xsize, bs, axx '找出主資料夾下的資料夾清單 For Each fid In path1.SubFolders bs = "B" ' 呼叫統計檔案大小的子程序 xsize = CalFilesInFolder(fid) axx = fid.name & "," & Cstr(xsize) '計算 BYTE單位(最多到MB即可) If(xsize > 1024)then xsize = CLng(xsize / 1024) bs = "KB" End If If(xsize > 1024)then xsize = CLng(xsize / 1024) bs = "MB&quo