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”变量更改为要列出子文件的实际文件夹路径。此外，您还可以根据需要修改输出语句。