ファイル 指定フォルダ内の全てのファイル属性取得

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル 指定フォルダ内の全てのファイル属性取得]
Option Explicit


Sub フォルダファイル属性取得(対象フォルダパス)
'******************************************
'指定フォルダ内の全てのファイル属性取得
'******************************************

Dim FileName As String

    'フォルダの存在確認
    If Dir(対象フォルダパス, vbDirectory) = "" Then
        MsgBox "指定移動元フォルダは存在しません。", vbExclamation, "ERROR!"
        Exit Sub
    End If

    '先頭ファイル名取得
    FileName = Dir(対象フォルダパス & "\*.*", vbNormal)
    '繰返処理
    Do While FileName <> ""
    MsgBox FileName & " - " & GetAttr(対象フォルダパス & "\" & FileName), 0, "ファイルの属性"
    FileName = Dir()
    Loop

'*********************************************
'* 属性一覧 **********************************
'*********************************************
'|-------------------------------------------|
'|vbNormal    |  0 | 通常のファイル          |
'|-------------------------------------------|
'|vbHidden    |  2 | 隠しファイル            |
'|-------------------------------------------|
'|vbSystem    |  4 | システムファイル        |
'|-------------------------------------------|
'|vbVolume    |  8 | ボリュームラベル        |
'|-------------------------------------------|
'|vbDirectory | 16 | ディレクトリ(フォルダ)|
'|-------------------------------------------|
'|vbArchive   | 32 | アーカイブ属性          |
'|-------------------------------------------|
'*********************************************
End Sub


Private Sub test()
フォルダファイル属性取得 ThisWorkbook.Path & "\test"
End Sub





Production Japan Import Application. Since 1998