获取文件属性（File类属性)

Sub aaa()
'
' aaa Macro
'
    Dim oFs 'FileSystemObject对象
    Dim oFd ' Folder文件夹对象
    Dim oFAll 'File对象集合
    
    Dim strPath '文件夹路径
    Dim nRow    '行号
    
    Dim strFileName '文件名
    Dim strFilePath '文件路径
    Dim nFileSize   '文件大小
    
    strPath = "C:\Users\Administrator\Desktop\个税明细（2022年）\"
    
    Set oFs = CreateObject("Scripting.FileSystemObject")    '创建FileSystemObject对象
    
    Set oFd = oFs.GetFolder(strPath)
    
    Set oFAll = oFd.Files   '获取文件夹的所有文件集合
        
    nRow = 2
    
    For Each f In oFAll
        strFileName = f.Name    '文件名
        strFilePath = f.Path    '文件路径
        nFileSize = f.Size      '文件大小，字节为单位，如转换为kb,则需要除1024换算
        
        Sheets(1).Cells(nRow, 1).Value = nRow - 1   '序号
        Sheets(1).Cells(nRow, 2).Value = strFileName    '文件名
        Sheets(1).Cells(nRow, 3).Value = strFilePath    '文件路径
        Sheets(1).Cells(nRow, 4).Value = nFileSize      '文件大小
        Sheets(1).Cells(nRow, 5).Value = f.DateCreated   '文件创建时间
        Sheets(1).Cells(nRow, 6).Value = f.DateLastModified '文件最后修改时间
        Sheets(1).Cells(nRow, 7).Value = f.Type             '文件类型
        
        nRow = nRow + 1
        
    Next
    
End Sub