VBA 获取子文件信息 - 文件名、大小和修改日期

要获取子文件的文件信息，您可以使用 VBA 中的 FileSystemObject 对象。以下是一个示例代码，该代码将列出指定文件夹中所有子文件的名称，大小和最后修改日期：

Sub ListSubFiles()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim path As String
    
    '指定要列出子文件的文件夹路径
    path = 'C:\Users\Username\Desktop\TestFolder'
    
    '创建FileSystemObject对象
    Set fso = CreateObject('Scripting.FileSystemObject')
    
    '获取指定文件夹对象
    Set folder = fso.GetFolder(path)
    
    '遍历子文件
    For Each file In folder.Files
        '输出子文件的名称，大小和最后修改日期
        Debug.Print file.Name & ' - ' & file.Size & ' bytes - ' & file.DateLastModified
    Next file
    
    '释放对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

请注意，您需要将 'path' 变量更改为要列出子文件的实际文件夹路径。此外，您还可以根据需要修改输出语句。