📄 sol5-3.vbs
字号:
Dim objFSO, objFolder, objSub, nTotal
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\Users")
nTotal = 0
'loop through each subfolder, displaying its size
For each objSub In objFolder.SubFolders
Wscript.Echo "Folder " & objSub.Name & " is " & objSub.Size _
& " bytes"
nTotal = nTotal + objSub.Size
Next
Wscript.Echo "Total for all folders:" & nTotal & " bytes"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -