【VBA】ファイル情報（作成日・サイズ・属性等）を取得する方法

Sub fileInfoSample()
    Const fileName As String = "C:\Users\xxxx\DocumentsBook1.xlsm"
    
    Dim fileSize As Long
    fileSize = FileLen(fileName)
    
    Dim fileDate As Date
    fileDate = FileDateTime(fileName)
    
    Debug.Print "ファイルサイズ: " & fileSize & "バイト"
    Debug.Print "最終更新日時: " & fileDate
End Sub

ファイルサイズ: 30038バイト
最終更新日時: 2023/12/04 15:48:41

Sub attrInfoSample()
    Const fileName As String = "C:\Users\xxxx\DocumentsBook1.xlsm"
    
    Dim attr As Integer
    attr = GetAttr(fileName)
    
    Dim result As String
    
    If (attr And (vbDirectory Or vbSystem Or vbVolume Or vbAlias)) = 0 Then
        result = "標準ファイル|"
    End If
    
    If attr And vbAlias Then result = result & "エイリアス|"
    If attr And vbArchive Then result = result & "アーカイブ|"
    If attr And vbDirectory Then result = result & "フォルダー|"
    If attr And vbHidden Then result = result & "隠し属性|"
    If attr And vbReadOnly Then result = result & "読み取り専用|"
    If attr And vbSystem Then result = result & "システム|"
    If attr And vbVolume Then result = result & "エイリアス|"
    
    Debug.Print "属性は|" & result & "です"
    
End Sub

Sub getFileSample()
    Const fileName As String = "C:\Users\xxxx\Book1.xlsm"
    Dim fso As New Scripting.FileSystemObject
    Dim fileInfo As file
    
    Set fileInfo = fso.GetFile(fileName)
    
    With fileInfo
        Debug.Print "ファイル名: " & .name
        Debug.Print "作成日時: " & .DateCreated
        Debug.Print "最終更新日時: " & .DateLastModified
        Debug.Print "サイズ: " & .Size
    End With
End Sub

ファイル名: Book1.xlsm
作成日時: 2023/11/06 16:42:56
最終更新日時: 2023/12/05 16:56:30
サイズ: 33892