如何批量提取文件名和大小

hellikawhi2

提取文件夹下的文件名称和内容，如果有子文件夹就继续提取子文件夹下的文件夹和名称，详情附件

3190496160

看看这个帖子的7楼，懒得写代码了
https://club.excelhome.net/thread-1174170-1-1.html

hellikawhi2

3190496160 发表于 2023-3-24 11:47
看看这个帖子的7楼，懒得写代码了
https://club.excelhome.net/thread-1174170-1-1.html

谢谢谢谢谢谢

ykcbf1100

版主的代码改的，练下手

天行道爷7

你看看是否可行：

'左边是文件路径，右边是文件大小（KB）

Option Explicit

Sub ListFilesInFolderAndSubfolders()
    Dim FolderPath As String
    Dim ws As Worksheet
   
    ' Prompt user to select a folder
    FolderPath = GetFolderPath()
    If FolderPath = "" Then Exit Sub
   
    ' Create a new worksheet to store file paths and sizes
    Set ws = ThisWorkbook.Worksheets.Add
    ws.Cells(1, 1).Value = "File Path"
    ws.Cells(1, 2).Value = "File Size (KB)"
   
    ' Call the recursive function to list all files
    Call ProcessFolder(FolderPath, ws)
   
    ' Autofit columns
    ws.Columns("A:B").AutoFit
End Sub

Function GetFolderPath() As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        If .Show = -1 Then
            GetFolderPath = .SelectedItems(1)
        End If
    End With
End Function

Sub ProcessFolder(FolderPath As String, ws As Worksheet)
    Dim FSO As Object
    Dim Folder As Object
    Dim SubFolder As Object
    Dim File As Object
    Dim NextRow As Long
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder(FolderPath)
   
    ' Process all files in the folder
    For Each File In Folder.Files
        NextRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
        ws.Cells(NextRow, 1).Value = File.Path
        ws.Cells(NextRow, 2).Value = File.Size / 1024
    Next File
   
    ' Recursively process all subfolders
    For Each SubFolder In Folder.SubFolders
        Call ProcessFolder(SubFolder.Path, ws)
    Next SubFolder
End Sub

hellikawhi2

天行道爷7 发表于 2023-3-24 14:49
你看看是否可行：

'左边是文件路径，右边是文件大小（KB）

编译错误，无效外部过程

天行道爷7

hellikawhi2 发表于 2023-3-24 16:09
编译错误，无效外部过程

需要引用一下：“Microsoft Scripting Runtime”
你试一下，打开VBA编辑器，在菜单栏中选择 “工具” -> “引用”，把上面那个库打勾。就可以了