求助，不使用第三方软件提取文件夹大小

远坂凛是我老婆

用bat提取，求代码

liunianwen

抱歉，我默认系统盘了，再来。你可以使用以下批处理代码来提取电脑上所有文件夹的大小，同时在屏幕上显示：

@echo off
setlocal enabledelayedexpansion
for /r C:\ %%a in (.) do (
    set "size=0"
    for /f "tokens=3" %%b in ('dir /a-d /s /-c "%%a" ^| findstr /b /c:"  "') do set size=%%b
    echo %%a: !size!
)
pause
这段代码将会遍历电脑上所有文件夹，并显示每个文件夹的大小。看看是不是你需要的。望采纳！

JackLei

用ExcelVBA运行这个代码，可以获取文件属性

[Visual Basic] 纯文本查看 复制代码

Sub getpathname()

Dim objFso As Object

Dim objFile As Object

Cells.ClearContents

strPath = ThisWorkbook.Path&Application.PathSeparator

strFile = strPath& "017temp017Test.txt"

'引用FSO

Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.FileExists(strFile) Then

Range("a1") = "获取文件信息和属性"

Range("a3") = "使用内置函数和语句"

'文件大小：FileLen()

Range("a4") = "文件大小："

Range("B4") = FileLen(strFile) & " 字节"

'文件的最后修改时间：FileDateTime()

Range("a5") = "文件最后修改的时间："

Range("B5") = FileDateTime(strFile)

'文件的属性GetAttr()

Range("a6") = "文件属性："

Range("B6") = GetAttr(strFile)

'设置文件的属性

SetAttrstrFile, vbReadOnly + vbHidden

Range("A8") = "文件“" &strFile& "”已设置了只读和隐藏属性"

Range("A10") = "使用FSO对象"

Set objFile = objFso.GetFile(strFile)

uu = objFile.Attributes

Range("A11") = "文件属性:": Range("B11") = objFile.Attributes

Range("A12") = "文件大小(Bytes):": Range("B12") = objFile.Size

Range("A13") = "创建时间:": Range("B13") = objFile.DateCreated

Range("A14") = "最后修改时间:": Range("B14") = objFile.DateLastModified

'属性更改

objFile.Attributes = objFile.Attributes + 4

Range("A16") = "文件“" &strFile& "”已设置了系统属性"

objFile.Attributes = objFile.Attributes - 3

Range("A18") = "文件“" &strFile& "”已去除了只读和隐藏属性"

objFile.Attributes = objFile.Attributes - 4

End If

Set objFile = Nothing

Set objFso = Nothing

End Sub

liunianwen

作为参考：

@echo off rem 设置要提取大小的文件夹路径 set folder=C:\Windows rem 调用dir命令获取文件夹大小，并将结果保存到临时文件中 dir /a-d /s /-c “%folder%” | find /i “File” > temp.txt rem 从临时文件中读取文件夹大小，并赋值给变量size for /f "tokens=3* delims= " %%a in (temp.txt) do set size=%%a %%b rem 删除临时文件 del temp.txt rem 输出文件夹大小 echo The size of %folder% is %size% pause

这个批处理文件的功能是提取C:\Windows这个文件夹的大小，并显示在屏幕上。你可以根据你的需要修改文件夹路径和输出格式。

远坂凛是我老婆

JackLei 发表于 2023-4-3 09:05
用ExcelVBA运行这个代码，可以获取文件属性
[mw_shl_code=vb,true]Sub getpathname()

您好，只看文件夹，不看文件，只图大量文件夹查看信息方便

远坂凛是我老婆

liunianwen 发表于 2023-4-3 10:34
作为参考：

@echo off rem 设置要提取大小的文件夹路径 set folder=C:\Windows rem 调用dir命令获取文件 ...

您好，只能提取C:\Windows？

freelive

远坂凛是我老婆 发表于 2023-4-3 20:15
您好，只看文件夹，不看文件，只图大量文件夹查看信息方便

https://www.jb51.net/article/98967.htm

http://bbs.bathome.net/thread-5369-1-1.html

批处理统计文件夹内的所有文件的数量和总大小。