[已解决]请教咋样用excel提取文件夹的大小。

爱疯

Sub Test()    'Folder 对象的属性
    Dim fs As Object, fld As Object, subfld As Object, f As Object
    Dim p As String
    Dim arr() As Variant
    Dim i As Integer
    Cells.Clear
    Cells(1, 1) = "名称"
    Cells(1, 2) = "大小"
    p = "C:\WINDOWS\"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fld = fs.GetFolder(p)
    Set subfld = fld.SubFolders
    ReDim Preserve arr(1 To subfld.Count, 1 To 2)
    For Each f In subfld
        i = i + 1
        '设置或返回指定文件或文件夹名。读/写属性。
        arr(i, 1) = f.Name
         '对于文件夹来说，返回以字节为单位的包含在文件夹中所有文件和子文件夹的大小。
        arr(i, 2) = Format(f.Size / 1024 ^ 2, "0.0 M")
    Next f
    Range("A2").Resize(UBound(arr), UBound(arr, 2)) = arr
    Range("A:B").EntireColumn.AutoFit
End Sub


改下路径，看可以吗

gaizi321

爱疯 发表于 2012-11-22 20:24
Sub Test()    'Folder 对象的属性
    Dim fs As Object, fld As Object, subfld As Object, f As Object ...

非常棒，我要的就是这个。非常感谢。