ファイル情報を取得する： Excel

ファイルの情報とは

ファイルサイズ
タイムスタンプ
ファイル属性

になります。

■ ファイルサイズ取得Excel関数
Function FileLen(ByVal PathName As String) As Long
引数：ファイル名
戻り値：バイト単位でファイルの長さが返ります

■ タイムスタンプ取得Excel関数
Function FileDateTime(ByVal PathName As String) As DateTime
引数：ファイル名
戻り値：ファイルの作成日時か最終変更日時が日付型で返ります

■ ファイル属性取得Excel関数
Function GetAttr(ByVal PathName As String) As FileAttribute
引数：ファイル名
戻り値：ファイルまたはフォルダの属性を表すFileAttribute型の値が返ります
vbReadOnly: 読み取り専用ファイル
vbHidden: 隠しファイル
vbSystem: システムファイル
vbDirectory: フォルダ
vbArchive: アーカイブファイル
vbAlias: エイリアスファイル

Excel実行画面

Excelシートに設置された、ファイル情報ボタンをクリックすると取得を開始します。

取得するファイル選択ダイアログが開きまます。ファイルを指定してください。

セルにファイル名・ファイルサイズ・最終更新日時・属性が表示されます。

Excel VBA実行コード

Private Sub CommandButton1_Click()
    Dim sfina As String
    Dim nRet As Integer
    Dim sRet As String

    sfina = SelectFile_single
    If sfina <> "" Then
        Range("B7") = "ファイル名"
        Range("C7") = sfina

        'ファイルサイズの取得
        Range("B8") = "ファイルサイズ"
        Range("C8") = FileLen(sfina)

        '最終更新日時の取得
        Range("B9") = "最終更新日時"
        Range("C9") = FileDateTime(sfina)

        '属性の取得
        Range("B10") = "属性"
        nRet = GetAttr(sfina)
        Select Case nRet
            Case vbNormal:  sRet = "通常ファイル"
            Case vbReadOnly: sRet = "読み取り専用ファイル"
            Case vbHidden: sRet = "隠しファイル"
            Case vbSystem: sRet = "システムファイル"
            Case vbDirectory: sRet = "フォルダ"
            Case vbArchive: sRet = "アーカイブファイル"
            Case vbAlias: sRet = " エイリアスファイル"
        End Select
        Range("C10") = sRet

    End If
End Sub

Public Function SelectFile_single()
    Dim sfile As String
    Dim i As Integer
    Dim s As String

    sfile = Application.GetOpenFilename("ファイルを選択してください (*.*), *.*")
    If sfile = "False" Then
        SelectFile_single = ""
    Else
        SelectFile_single = sfile
    End If
End Function

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

ファイル情報を取得する ： Excel

Excel実行画面

Excel VBA実行コード

ファイル情報を取得する： Excel