◆ファイルの属性・サイズを調べる・設定する

  ファイルの属性を調べるには、 GetAttr 関数を使用します。

  GetAttr(Pathname)

  各属性を表す定数、値は次のとおりです。

Sub Get_Attribute()

    Dim FileNamePath As String
    Dim File_Attri As Integer
    
    'ファイルのパスを取得
    FileNamePath = SelectFileNamePath
    
    'ファイルの属性を取得
    File_Attri = GetAttr(FileNamePath)
    
    MsgBox File_Attri
    
End Sub

Function SelectFileNamePath() As String
    SelectFileNamePath = Application. _
               GetOpenFilename("ファイルの選択 (*.*),*.*")
End Function

  ファイルの属性を設定には、 SetAttr ステートメントを使用します。

  GetAttr Pathname，Attributes

  複数の属性を設定する場合には、合計の値を指定するか、定数を「+」でつなげて
  指定します。

Sub Set_Attribute()

    Dim FileNamePath As String
    Dim File_Attri As Integer
    
    'ファイルのパスを取得
    FileNamePath = SelectFileNamePath
    
    'ファイルの属性を設定する
    SetAttr FileNamePath, vbReadOnly
        
End Sub

  ファイルのサイズを調べるには、 FileLen 関数を使用します。

  FileLen(Pathname)

  バイト単位のファイルサイズを返します。

  ファイルサイズは長整数型で得られるので、変数は Long を使用してください。

Sub Get_FileSize()

    Dim FileNamePath As String
    Dim File_Size As Long
    
    'ファイルのパスを取得
    FileNamePath = SelectFileNamePath
    
    'ファイルのサイズを取得
    File_Size = FileLen(FileNamePath)
    
    MsgBox File_Size
    
End Sub