2020/10/30

指定フォルダ配下のファイル情報を取得




１．背景

パソコンやサーバ内のファイル情報は、図１－１のようにエクスプローラを使えば確認できます。但し目視しか出来ず、もし記録に残すのであればエクスプローラをプリントスクリーンしたりカメラで撮ったりするくらいです。
デジタル値を取得するには、Windowsのコマンドプロンプト（Dos窓）で「Dir」コマンド等を使う方法がありますが、コマンドプロンプトは苦手だという人も多いようです。
エクスプローラでのファイル一覧
図１－１

そこで今回は、指定フォルダー配下のファイル情報をExcelワークシート上に出力するアプリを紹介します。

２．システム概要

シート上の「フォルダ内検索」ボタンをクリックすると、図２－１の「フォルダーを指定するダイアログ」が開きます。
フォルダーを指定
図２－１

ダイアログ上で、情報を得たいフォルダーを選択（下のフォルダー名の場所に、フォルダー名が入力される）しＯＫボタンをクリックすると、指定したフォルダー配下を全て走査し、図２－２のようにファイル情報が書き出されます。
ファイル情報をワークシートに書き出し
図２－２

今回取得している情報は以下の通りです。
またファイルだけで無く「サブフォルダー」も表示させており、その場合のフォルダー名は親フォルダーにしています。
　１）ファイル名・・・・・・・・拡張子及びピリオドを含んだファイル名
　２）フォルダー名・・・・・・・このファイルが所属しているフォルダー名
　３）ファイルサイズ（KB）・・・キロバイト単位で切り上げした実サイズ。ディスク上のサイズではありません。　
　４）ファイル種類
　５）ファイル属性・・・・・・・数値で表示していますが、その内容は図４－７で説明します。
　６）作成日
　７）最終アクセス日
　８）更新日

なお、出力を途中で止めたい場合は、エスケープキー（ESCキー）を長押しして下さい。マクロが中断されますので、中止ボタンをクリックすると終了します。（但し途中のオブジェクトが残留してしまうはずなので、中断の多用はあまりお勧めしません）

３．プログラムの流れ

今回のシステムのプログラムの流れは、図３－１のようになります。
プログラムの流れ
図３－１

ボタンをクリックすると、図２－１のダイアログが表示されフォルダーの指定（図３－１の①）を行い、フォルダーが決まると前回表示したデータをクリア（図３－１の②）します。
続いて「ダイアログで指定したフォルダーを基準」として「情報出力ブロック③」に入り、まずその中のファイルについて１つ１つ順番④に情報を出力（図３－１の⑤）していきます。

ファイルの処理が全て完了したら、次に指定フォルダ内にある１つ目のサブフォルダの情報を出力（図３－１の⑦）した後、その場所から「１つ目のサブフォルダを基準」として「情報出力ブロック③」を呼び出します（図３－１の⑧）。
この「自分から自分を呼び出す」ことを「再帰呼び出し」と言います。
「再帰呼び出し」で呼び出された「情報出力ブロック③」では、「１つ目のサブフォルダ内」のファイルとサブフォルダの情報を出力していきます。

恐らく分かり難いと思いますので、実際のフォルダー（仮）で流れを追っていきます。
図３－２は、myDATAというフォルダがあり、その中には４つのファイルと２つのサブフォルダ（Folder1とFolder2）があることを示しています。またサブフォルダFolder1に下には３つのファイル、Folder2に下には６つのファイルと１つのサブフォルダ（Folder3）があり、Folder3の下には４つのファイルがある、と仮定します。
フォルダの深さと処理の順番
図３－２

ここで、myDATAフォルダをダイアログで指定した場合の処理の順番を表したものが図３－３です。丸数字が図３－１での処理工程で、丸英字が図３－２のフォルダー内のファイルおよびサブフォルダーになります。
また四角で囲った黒枠が「情報出力ブロック③」を表し、その中から「情報出力ブロック③」を再帰呼び出しし、更にまた再帰呼び出しする流れを示しています。
再帰呼び出しの順番
図３－３

つまり、対象フォルダ（myDATAフォルダ）での処理（情報出力ブロック③）は継続したまま、途中でサブフォルダ内の処理を別のプログラムとして「情情報出力ブロック③」を呼び出すのです。
自分自身を呼び出す、つまり「今処理しているプログラム自体を再帰呼び出しする」理由ですが、今回システムで言えば「基準の位置さえ変更すれば、同じ処理方法が使える」ためです。
最初に指定したmyDATAの「フォルダー内には、０～複数個のファイル、０～複数個のフォルダーが存在」しますし、その中の１つのサブフォルダーであるFolder1の「フォルダー内には、０～複数個のファイル、０～複数個のフォルダーが存在」します。つまり処理対象のフォルダーが変わるだけで処理工程は同じですので、同じプログラムを使用できるのです。
もしこれを別々なコードにしようとしても、「ダイアログで指定した任意のフォルダーの下に何個のサブフォルダーが存在するかは、プログラム作成時点では把握できない」ため、あらかじめ作っておくことが不可能です。

なお再帰呼び出しする際には、引き渡すものが必要です。今回の場合、処理の対象である「基準フォルダ」を渡すのと同時に、処理したデータを書き込む位置（書込みシート、行、先頭列）を一緒に渡し、指定された位置にデータを出力します。

また、図３－１では「全ファイルを１つずつ取り上げ」とか「全フォルダを１つずつ取り上げ」と書いていますが、実は「開けないサブフォルダー」が存在しますし、またWindowsのエクスプローラでは「通常見えないファイル・フォルダー」もあります。
「開けないサブフォルダー」を開こうとするとエラーが発生しますので、そのエラー処理対応が必要となります。また今回は、出力一覧をエクスプローラ相当に合わせているので、ファイル・フォルダーの属性を調べ（図３－１の⑨）て出力有無を制御しています。

ダイアログで指定したフォルダー配下の全てのファイル・フォルダーの処理が終了したら「情報出力ブロック」を抜け、終了（図３－１の⑩）します。


今回の再帰呼び出しは「呼出し元の自分を残したまま新たな自分を呼び出し」ていますが、OnTimeメソッド等を使って「自分が閉じた後に新たな自分を呼び出す」ことも「再帰呼び出し」と呼びます。

４．プログラム内容

４－１．ワークブック上の準備

今回は、ファイル情報をワークブック上に書き出しますので、図４－１のように情報タイトルを記入しボタンを配置します。
タイトル記入及びボタンへのマクロ登録
図４－１

タイトル行は今回「３行目」とし、データは４行目以降に並べる事にしました。また列方向ではA列からデータを並べています。
なお一番上にCommandButtonを配置し、そのボタンに「標準モジュールのFileSearchプロシージャ」をマクロ登録します。

４－２．標準モジュール

４－２－１．走査フォルダーの指定

シート上のボタン（CommandButton）をクリックすることで呼び出されるプロシージャが図４－２です。
  1. '==========　⇩①　走査フォルダーの指定　====================
  2. Sub FileSearch()
  3. 　Dim DialogButton As Long　　　 'ユーザーが表示ダイアログのどのボタンをクリックしたかの値
  4. 　Dim FolderName As String　　　 'ユーザーが指定したフォルダー名
  5. 　Dim PasteSh As Worksheet　　　 '出力先のシート名
  6. 　Dim PasteRow As Long　　　　　 '出力する行の位置（データ開始行）
  7. 　Dim PasteCol As Long　　　　　　 '出力する列の位置（データ開始列
  9. 　Set PasteSh = Sheet1　　　　　　 '出力先はSheet1（使う環境で調整して下さい）
  10. 　PasteRow = 4　　　　　　　　　　 '出力開始行＝4行目から
  11. 　PasteCol = 1　　　　　　　　　　　 '出力開始列＝A列から
  13. 　With Application.FileDialog(msoFileDialogFolderPicker)
  14. 　　DialogButton = .Show
  15. 　　If DialogButton = 0 Then Exit Sub　　 'okボタンはｰ1、キャンセルボタンは０、右上×印も０
  16. 　　FolderName = .SelectedItems(1)　　　 'フォルダ名を取得
  17. 　End With
  19. 　Call SheetClear(PasteSh, PasteRow, PasteCol)　　　　　　　　 '旧データをクリア
  20. 　Call FileInfo(FolderName, PasteSh, PasteRow, PasteCol)　　　 'データ出力を開始
  22. End Sub
図４－２

９～１１行目では、走査したファイル・フォルダー情報を記入する場所の指定をしています。
９行目では、Excelのシートを指定します。ここでは「Sheet1」としていますが、マクロをAddin化して９行目を「ActiveSheet」指定にすることも可能です。その場合にはタイトル行も一緒に出力する工夫が必要かもしれません。
１０行目は出力開始行の設定です。ここで使われる変数PasteRowは、２０行目で「情報出力ブロック」に引数として渡された後、「出力する行を示す値」に変化し、データを１行出力するたびに「１ずつ増加」していきます。
１１行目は出力開始列です。今回出力する種類は８種ですので、１列目（A列）から８列目（H列）までがデータ列になります。

１３～１７行目は、基準のフォルダーを指定する部分です。
１４行目は、組み込みダイアログの１つである「msoFileDialogFolderPicker」をShowメソッドで表示させます。表示されるダイアログは図２－１のようなもので、フォルダーを選択すると下の「フォルダー名」欄にフォルダー名が入ります。
そして、ダイアログ右下のOKボタン又はキャンセルボタンをクリックするとダイアログは閉じられ、押したボタンの種類が戻り値として変数DialogButtonに代入されます。
戻り値は「ＯＫボタン＝－１」「キャンセルボタン＝０」であり、ダイアログ右上の×印をクリックした場合もゼロが戻ります。

１５行目は押されたボタンの種類を判別し、「キャンセルボタン」または「右上の×印」をクリックした場合は、プロシージャを抜け出します。
「OKボタン」を押された時だけ１６行目に移り、「.SelectedItems(1)」で「ユーザーが指定したフォルダー名」をString型で受け取り、変数FolderNameに代入します。


今回使用する組み込みダイアログでは「１つの値（フォルダー名）しか選択できません」ので、「.SelectedItems（１）」以外の「（２）等」は存在しません。
また、ダイアログで「何も指定せずにOKボタンをクリック」した時には、１つ前の作業で指定したフォルダーとなります。その値は、「Application.FileDialog(msoFileDialogFolderPicker). InitialFileName」で取得できます。
１つ前も無かった時（Excel起動直後など）には、Excelの設定値「既存のローカルファイルの保存場所」（ファイル→オプション→保存→ブックの保存　で設定）となるようです。

１９行目では、シート上のデータを消去しています。
図４－１６の「SheetClearプロシージャ」を呼び出し、引数として「シート名」「データ行開始位置」「データ列開始位置」を渡します。

２０行目では、「対象フォルダー名」及び「シート名」「データ行開始位置」「データ列開始位置」を引数にして、「情報出力ブロック」であるFileInfo（図４－３）プロシージャを呼び出します。
図３－３の一番上の長い四角枠が、２０行目で呼び出している「情報出力ブロック」であり、全てのファイル・フォルダーの走査・出力が終了すると、２２行目の「End Sub」に移りマクロ終了します。

４－２－２．情報出力ブロック

最初に図４－２の２０行目から呼び出され、また自分自身（図４－３の７４行目）からも呼び出されるのが図４－３です。
  1. '==========　⇩②　情報出力ブロック　====================
  2. Private Sub FileInfo(myPath As String, PasteSh As Worksheet, PasteRow As Long, PasteCol As Long)
  3. 　Dim Fs As Object　　　　　　　　　　 'FileSystemObjectオブジェクトの生成用変数
  4. 　Dim myFolder As Object　　　　　　 '調べるフォルダーのオブジェクト変数
  5. 　Dim myFile As Object　　　　　　　 '調べるフォルダー内の１つ１つのファイルオブジェクト
  6. 　Dim mySubFolder As Object　　　　 '調べるフォルダー内の１つ１つのサブフォルダーオブジェクト
  7. 　Dim Fcount As Long　　　　　　　　　 '調べるフォルダー内のファイルの数量
  8. 　Dim isRead As Boolean　　　　　　　 '調べるフォルダーが読み込めるか否かのフラグ
  9. 　Dim temp(1 To 8) As Variant　　　　 '１つのファイル・フォルダーの情報を格納する配列
  11. 　Set Fs = CreateObject("Scripting.FileSystemObject")
  12. 　Set myFolder = Fs.GetFolder(myPath)
  14. 　On Error Resume Next
  15. 　　Fcount = myFolder.Files.Count
  16. 　　If Err.Number = 0 Then isRead = True
  17. 　On Error GoTo 0
  19. 　If isRead = True Then
  20. 　　For Each myFile In myFolder.Files
  21. 　　　If Not (DtoB(myFile.Attributes)(2) And DtoB (myFile.Attributes)(3)) Then
  22. 　　　　temp(1) = Fs.GetFileName(myFile.path) 　　　　　 　　　　　 　　　　　　 　　　　　　 'ファイル名
  23. 　　　　temp(2) = myFile.ParentFolder.path 　　　　　　 　　　　　　 　　　　　　 　　　　　　 '親のパス名
  24. 　　　　temp(3) = Application.WorksheetFunction.RoundUp (myFile.Size / 1024, 0) 　　 'ファイルサイズ
  25. 　　　　temp(4) = myFile.Type 　　　　　 　　　 'ファイルタイプ
  26. 　　　　temp(5) = myFile.Attributes 　　　　　　　　　 '属性
  27. 　　　　temp(6) = myFile.DateCreated 　　　　　　　　 '作成日
  28. 　　　　temp(7) = myFile.DateLastAccessed 　　　　　 '最終アクセス日
  29. 　　　　temp(8) = myFile.DateLastModified 　　　　　　 '更新日
  31. 　　　　PasteSh.Cells(PasteRow, PasteCol).Resize(1, 8) = temp
  32. 　　　　Erase temp
  33. 　　　　PasteRow = PasteRow + 1
  34. 　　　End If
  35. 　　Next myFile
  37. 　　For Each mySubFolder In myFolder.SubFolders
  38. 　　　If Not (DtoB(mySubFolder.Attributes)(2) And DtoB(mySubFolder.Attributes)(3)) Then
  39. 　　　　temp(1) = mySubFolder.Name
  40. 　　　　temp(2) = mySubFolder.ParentFolder.path
  41. '　 　　temp(3) = Application.WorksheetFunction.RoundUp (mySubFolder.Size / 1024, 0)　
  42. 　　　　temp(4) = mySubFolder.Type
  43. 　　　　temp(5) = mySubFolder.Attributes
  44. 　　　　temp(6) = mySubFolder.DateCreated
  45. 　　　　temp(7) = mySubFolder.DateLastAccessed
  46. 　　　　temp(8) = mySubFolder.DateLastModified
  48. 　　　　PasteSh.Cells(PasteRow, PasteCol).Resize(1, 8) = temp
  49. 　　　　Erase temp
  50. 　　　　PasteRow = PasteRow + 1
  52. 　　　　Call FileInfo(mySubFolder.path, PasteSh, PasteRow, PasteCol)
  53. 　　　End If
  54. 　　Next mySubFolder
  55. 　End If
  57. 　Set Fs = Nothing
  58. 　Set myFolder = Nothing
  59. End Sub
図４－３

２４行目で受け取る引数は、以下の４つです。
　myPath　　：調べるフォルダー名（文字列型）
　PasteSh　：出力先のシート名（オブジェクト型）
　PasteRow　：出力先の行位置（数値）
　PasteCol　：出力先の先頭の列位置（数値）

３３行目では、FileSystemObjectオブジェクトを生成し変数Fsに代入しています。
３４行目では、第一引数の文字列myPathを引数にしてGetFolderで「調べるフォルダーのオブジェクト」を取得し、myFolderに代入しています。

３６～３９行目は、その調べるフォルダーの中身が読み取れない場合に、情報の収集と出力を取りやめる準備をするものです。
１つ１つのフォルダーには「Attributes」という「属性」を示す値が設定されており「見える」「見えない」が決まるのですが、それとは無関係に図４－４の様に、ファイルの中を見ようとすると「アクセスが拒否」される場合があります。
エラーダイアログ１ エラーダイアログ２
図４－４

この拒否の原因は「Windousシステムが使用しているため」などがありますが、何の理由にしてもフォルダーの中が見えないのであれば、諦めるしかありません。
そこで、３７行目で対象フォルダーの中に何個のファイルが存在するかを調べようと試み、失敗すれば「フォルダーの中が見られないんだな」と諦めることとしました。（読める・読めないのチェックは、フォルダー内を調べようとする行動であれば何でもＯＫだと思います。）
図４－４のようなエラーを検知するため、３６行目に「On Error Resume Next」を置き、３７行目のエラー有無を３８行目で判断し、読み取れるのであれば４２行目以降の「情報吸い上げ・出力工程」を実行するように、３８行目で変数isReadにTrueを代入します。
（変数isReadは、３０行目で宣言しただけですので、初期値はFalseになっています）
３９行目では、できるだけ早くエラー処理を元の状態に戻すために「On Error GoTo 0」を実行します。

４１行目は、変数isReadがTrue（＝正常にフォルダー内が開ける）の時に、４２～７６行目を実行します。
なおFalseの時（＝フォルダー内が見えない時）は、７９～８０行目で生成したオブジェクトを解除し終了させます。

４２～７６行目は、For～Next文とIf文が混ざっていますので、図４－５に整理しました。
ファイル・フォルダー情報の読み取り・出力部
図４－５

上半分の４２～５７行目が対象フォルダーの中の「ファイル」についての処理を行い、下半分の５９～７６行目が対象フォルダーの中の「サブフォルダー」についての処理を行っています。
実際の処理部分では、黄色の部分がファイル・フォルダーの情報を配列に格納している部分で、次に緑色部分で配列に収めた情報をシート上に書き出します。
書き出しが終了したら次の工程での準備のために、青色部分で配列内容を消去し、書き出し行位置を１つ下に移動させます。

オレンジ色の７４行目は、サブフォルダーの中身を調査するために、第一引数（対象フォルダ）にサブフォルダ名を渡して、再帰呼び出しをします。

４３行目および６０行目の「属性による出力有無」については、あとで図４－７のところで説明します。

先に黄色の部分のファイル・フォルダーの情報ですが、コードに表した以外にもいくつかあります。
図４－６は「ファイル」についての表になっていますが、「myFile」を「myFolder」に変えればフォルダー情報が得られます。
No.情報メソッドプロパティ
1ファイル名Fs.GetFileName (myFile.path)myFile.Name
2ファイル名（フルパスを含む）Fs.GetAbsolutePathName (myFile.path)myFile.Path
3ファイル名（拡張子･ﾋﾟﾘｵﾄﾞ含まず）Fs.GetBaseName (myFile.path)－
4拡張子（ピリオド含まず）Fs.GetExtensionName (myFile.path)－
5ドライブ名Fs.GetdriveName (myFile.path)myFile.Drive.Path ／ myFile.Drive.DriveLetter
6親のパス名Fs.GetParentFolderName (myFile.path)myFile.ParentFolder.path
7ファイルサイズ（バイト）－myFile.Size
8ファイルタイプ－myFile.Type
9属性－myFile.Attributes
10作成日－myFile.DateCreated
11最終アクセス日－myFile.DateLastAccessed
12更新日－myFile.DateLastModified
図４－６

今回は、これらの情報の内から「名前、フォルダ名、サイズ(KB)、種類、属性、作成日、最終アクセス日、変更日」の８種を出力しています。メソッド・プロパティのどちらを使っても、同じString型の情報が得られます。

なお、サイズについては、エクスプローラではKB（キロバイト）単位で表示されていますので、それに合わせました。また、エクスプローラではKB単位で切り上げ表示されているので、RoundUpを使って切り上げをしています。
また、サイズはファイルそのもののサイズであり、「ディスク上のサイズ」ではありません。「ディスク上のサイズ」は、クラスタサイズ（Windowsでは「アロケーションユニットサイズ」）単位となりますが、Excelからクラスタサイズを取得するのは大変そうなので、今回は諦めました。

また、フォルダーでのサイズは「対象フォルダー配下の全ファイルの合計サイズ」になるようですが、「サイズがエラーになるフォルダーも存在する」ので実行しない事にしました。ですので、サイズの列（今回ならC列）の値を合計することで、各フォルダーのサイズを計算して下さい。

５３・７０行目では、ファイル・フォルダー情報を格納した配列tempをシートに貼り付けています。
５４・７１行目では、配列tempの内容を消去します。消去しないと、フォルダー情報のサイズ欄に前のデータが残る可能性があります。
５５・７２行目では、出力する行位置を１つ下に下げています。

そして７４行目では、サブフォルダー名を新たな基準フォルダー名にして再帰呼び出しをします。

では少し戻って、４３・６０行目の「属性による仕訳け」について説明します。
属性値は、図４－６のNo.9のように「Attributes」で得ることができます。
属性とは「読み取り専用」とか「隠しファイル」などというファイルの特徴で、図４－７の様な種類があります。
属性と属性値の関係
値FileAttribute列挙型の要素名属性（特徴）
0Normal標準ファイル
1ReadOnly読み取り専用ファイル
2Hidden隠しファイル
4Systemシステムファイル
8Volumeディスクドライブ、ボリュームラベル
16Directoryフォルダ、ディレクトリ
32Archiveアーカイブファイル
1024Aliasリンク、ショートカット
2048Compressed圧縮ファイル
図４－７

ファイル１つに対して特徴は１つではなく、複数の特徴が組み合わさっている場合もあります。その場合は値を足し合わせた合計値が属性値となりますが、その合計値は逆算・分解して「どの属性を持っているか」を知ることができます。
これは、各値が「２n」という形で表されているためで、図４－８の様に属性値を２進数で表現してみると、各桁が１か０かを調べる事で属性が含まれているかが分かります。
属性値を２進数で表現
図４－８

図４－７の組み合わせは全部で２５６種類になります。しかし実際に何種類あるのか、私のＰＣの中のファイルの属性を調べてみたのが図４－９・図４－１０・図４－１１です。（最初から６４種類までの組合せを全て並べたのが図４－９・図４－１０で、それ以上が図４－１１）
「●と〇」を記したところが実際に存在した属性値で、「・」のところでは見つかりませんでした。
また、●はエクスプローラで見えるファイル・フォルダー、〇は見えないファイル・フォルダーです。
属性値と可視・不可視１
図４－９
属性値と可視・不可視２
図４－１０
属性値と可視・不可視３
図４－１１

ファイル・フォルダーが見える・見えないは、エクスプローラの設定が関係しています。今回は以下の設定でトライしています。
１つ目は、エクスプローラの｢表示｣→｢表示/非表示｣→｢隠しファイル｣での設定で、上記表は隠しファイルを見える様にしています。
２つ目は、エクスプローラの｢表示｣→｢オプション｣→｢表示｣→｢詳細設定｣→｢保護されたｵﾍﾟﾚｰﾃｨﾝｸﾞ ｼｽﾃﾑ ﾌｧｲﾙを表示しない｣での設定で、こちらは推奨の通り「表示しない」にしてあります。

私は今まで、「隠しファイル」設定を「隠さない」にしておけば、全てのファイルが見えると思っていましたが、そうではありませんでした。上記の３つの表を眺めていると、「隠しファイル（値２）」と「システムファイル（値４）」の両方が属性になっているファイル・フォルダーはエクスプローラでは見えないようです。（どこのサイトにも記述が見つからないので暫定情報です）

ということで、今回出力される表示を「エクスプローラ表示に合わせる」ために、属性が「隠しファイル」且つ「システムファイル」の場合にはスルーさせることにし、４３・６０行目のIF文を設定しました。
なお、「隠しファイル」が「DtoB(myFile.Attributes)(2)」、「システムファイル」が「DtoB(myFile.Attributes)(3)」に相当するのですが、それについては図４－１２で説明します。


３３行目で「FileSystemObjectオブジェクト」の生成を行っていますが、再帰呼び出しをされるたび、つまりサブフォルダーが深い場合には何回も同じこの行が実行され「FileSystemObjectオブジェクト」が重複して生成される気がします。
しかしMicrosoftの「FileSystemObject のプログラミング」では「FileSystemObjectのインスタンスは、ほかのインスタンスを何回作成しても１つしか作成されない」と説明しており、重複生成によりメモリを圧迫する等の心配は無いようです。
それでも気になる方は、オブジェクト変数Fsをモジュールレベル変数として宣言し、１回しか実行されないように図４－２内で生成するようにしてもＯＫです。


４－２－３．属性値の分解

図４－３の４３行目・６０行目から呼び出される「DtoB関数」が図４－１２です。この関数は、引数に１０進数の整数を渡すと、２進数相当の配列を返す関数です。配列の中は、２進数の１相当だったらTrueを、０相当だったらFalseが入ります。
ファイル・フォルダーの属性値は、図４－８のように２進数で表現すると「どの属性が含まれているか」が分かります。ですので、この「DtoB関数」に属性値を渡し、返ってきた配列の中身を調べることで「どの属性が含まれているか」が分かることになります。
  1. '==========　⇩③　属性値の分解　====================
  2. Function DtoB(attrNO As Long) As Boolean()
  3. 　Dim Remainder As Long　　　　 '2で割った余り。１か０になります。
  4. 　Dim arrayBin() As Boolean　　 '２進数相当の各桁を入れる動的配列
  5. 　Dim i As Long　　　　　　　　　　 'カウンター変数（２進数の桁数を表す）
  6. 　i = 1
  7. 　Do
  8. 　　Remainder = attrNO Mod 2
  9. 　　attrNO = Int(attrNO / 2)
  10. 　　ReDim Preserve arrayBin(1 To i)
  11. 　　arrayBin(i) = CBool(Remainder)
  12. 　　i = i + 1
  13. 　　If (attrNO < 2) Then
  14. 　　　If (attrNO = 1) Then
  15. 　　　　ReDim Preserve arrayBin(1 To i)
  16. 　　　　arrayBin(i) = CBool(attrNO)
  17. 　　　End If
  18. 　　　Exit Do
  19. 　　End If
  20. 　　DoEvents: DoEvents
  21. 　Loop
  23. 　If UBound(arrayBin, 1) < 12 Then
  24. 　　ReDim Preserve arrayBin(1 To 12)
  25. 　End If
  27. 　DtoB = arrayBin
  28. End Function
図４－１２

引数である attrNO は「属性値（Attributesの値）」です。その属性値を８８行目以下のDo～Loop内で２進数相当に変換していきます。
ちなみに手計算では、図４－１３の左側のように「元の値を２で割り、その商を下に書き次の値とする。余りは右端に書く」を商がゼロになるまで繰り返し行います（図４－１３の中央）。計算が終わったら余りを下の方から拾い上げます（図４－１３の右側）。
手計算での10進数から2進数への変換方法
図４－１３

この手計算の手法を計算式に置き換えたのが図４－１４です。
10進数から2進数への変換方法の考え方
図４－１４

「元の値を２で割り、余りは右端に書く（＝保存する）」が８９行目の「Remainder = attrNO Mod 2」に相当し、「元の値を２で割り、その商を次の値とする」が９０行目の「attrNO = Int(attrNO / 2)」になります。
これを２進数として考えると、２進数のブロックを１つずつ右側に移動（ワークシート関数のBITRSHIFTの動きのイメージ）し、右にはみ出た値（余り値）を下の桁から埋めていく、と言うことになります。

９１行目は、１つ余りが出るたびに「余りの入れ物である配列のサイズを確保」し、９２行目では、その確保した場所に余り値を代入しています。
通常は、余り値をそのまま配列に格納したり、文字列として最下桁からつなげて行くのですが、今回は図４－３の４３行目・６０行目で「属性有無の判断」に使用するため、「１または０」をCBool関数を使って「True または False」に変更し、If文を簡略化しています。

９４行目はDo～Loopの脱出条件で、元の値が割る値より小さくなった時に抜け出します。手計算（図４－１３）では元の値がゼロになるまで計算を続けていますが、９４行目はその１つ前で判断を下している形です。
最後に残った「元の値」が１であれば、９６行目で配列の枠を増やして、９７行目でTrueを代入します。ここで処理している桁は一番上の桁ですので、もし「元の値」がゼロであるなら「一番上の桁に、ゼロを入れても入れなくても同じ」ですので、無視しています。

計算が終わったら９９行目でDo～Loopを抜け出します。
１０４～１０６行目の処理は、今回システムでは必須です。例えば属性値が３であった場合、図４－１５のようにIf文側で「配列の大きさが合っていない」不具合が発生してしまいます。
属性値が小さな値だった場合の不具合点
図４－１５

ですのでIf文でエラーが出ないように、１０５行目で配列の大きさを広げています。広げる大きさは、今回の場合の必要最小限は３（隠しファイル＝２、システムファイル＝３）ですが、もしコード改造でIF文を変更してもエラーが出ないようにするため、図４－８の最大の１２まで広げています。
なお広げた分については、配列はBoolean型で宣言されていますので全てFalseで埋められます。

処理が終了したら、データを入れた配列arrayBinを１０８行目で戻り値にします。
配列を戻り値にしているため、このFunctionの型は、８３行目で「As Boolean( )」とカッコを付けて宣言しています。

４－２－４．シートのクリア

図４－２の１９行目から呼び出される「旧データのクリア」が図４－１６です。
受け取る引数は、Psh（データ出力のシート）、Prow（データ出力開始行位置）、Pcol（データ出力開始列位置）です。
  1. '==========　⇩④　シートのクリア　====================
  2. Private Sub SheetClear(Psh As Worksheet, Prow As Long, Pcol As Long)
  3. 　Dim Rng As Range　　　　　　　　　　 '←記述されているセル範囲
  4. 　Set Rng = Psh.Cells(Prow - 1, Pcol).CurrentRegion
  6. 　If Psh.FilterMode = True Then Psh.ShowAllData
  8. 　If Not (Rng.Rows.Count = 1 Or Rng.Rows.Count + Rng.Row = Prow) Then
  9. 　　Rng.Offset(Prow - Rng.Row, 0).Resize(Rng.Rows.Count - (Prow - Rng.Row), Rng.Columns.Count).Clear
  10. 　End If
  11. End Sub
図４－１６

１１３行目では、データが記述されている範囲をCurrentRegionで取得します。「CurrentRegion」は選択セル範囲に対して「アクティブセル領域」を取得するプロパティです。そのCurrentRegionの基準となる「選択セル」をどの位置にするか（データ行のトップ＝４行目、またはタイトル行＝３行目）を考えてみます。

アクティブセル領域とは「選択セル範囲から、すべての方向の最初の空白行・空白列までの領域」で、今回システムで言えば図４－１７の様になります。薄い緑色が「空白行・空白列」で、①は３行目を選択した場合、②は４行目を選択した場合です。
選択セルがタイトル行・データ行の一部ですので、①の場合も②の場合も同じアクティブセル領域になります。
タイトル行有り＋データ有りの時のCurrentRegion
図４－１７

一方、データが無かった場合は、図４－１８のようにタイトル行だけになります。この場合、選択セルが３行目なのか４行目なのかでアクティブセル領域は変わってきます。
③の場合は、①②と同様にセルに値がある範囲がアクティブセル領域になります。
しかし、④の場合は選択したセルも含まれますので、４行目もアクティブセル領域に入ります。
タイトル行有り＋データ無しの時のCurrentRegion
図４－１８

また今回は３行目をタイトル行としていますが、タイトル行が無い場合も考えられます。
この場合も選択セルが３行目なのか４行目なのかでアクティブセル領域は変わってきます。
タイトル行無し＋データ有りの時のCurrentRegion
図４－１９

最後に、タイトル行も無く、データも無い場合を考えます。何もない時には、図４－２０のように選択セル自身がアクティブセル領域になります。
タイトル行無し＋データ無しの時のCurrentRegion
図４－２０

以上をまとめたのが図４－２１です。この表から、選択セル（＝CurrentRegionの基準セル）を「データ先頭行（４行目）」にするか「その上（3行目）」にするかを考えます。
パッと見で、上半分の３行目に選択セルがある方が「（Ｂ）－１＝（Ａ）」が成り立ちますし、データ行は４行目からですので（Ｃ）が揃っているのも計算式を立て易そうです。また、データが無い場合（③⑦）は「(B)＝１」で見分けられます。
（４行目の方でも、たぶんできるのでしょうが、If文で細かく分ける必要があることは推定できます）
選択セル
位置		番号タイトル行有無データ行有無
(A)		CurrentRegion
の行数　(B)		CurrentRegion
の先頭行　(C)
３行目①有り有り=343
③有り無し=013
⑤無し有り=343
⑦無し無し=013
4行目②有り有り=343
④有り無し=023
⑥無し有り=334
⑧無し無し=014
図４－２１

ということで「３行目を選択セル」とする事とします。
ついでに図４－２２のように「タイトル行を２行目に作られてしまった」時のこともチェックしておきます。
タイトル行とデータ行が離れている場合のCurrentRegion
図４－２２

以上、３行目を選択セルにした場合の「タイトル行の位置」によるCurrentRegion範囲を、図４－２３に整理しました。
選択セル＝３行目
タイトル行
の位置		番号データ行有無
(A)		CurrentRegion
の行数　(B)		CurrentRegion
の先頭行　(C)
３行目①有り=343
③無し=013
２行目⑨有り=352
⑩無し=022
なし⑤有り=343
⑦無し=013
図４－２３

（A）（B）（C）の値を見比べてみると、「(A)＝(B)－（４－(C) ）」が成り立ちます。（数値の４は、データ開始行の４です）
また、データ削除不要のデータ行ゼロを判断するには「(B)＝１」だけでなく、「(B)＋(C)＝4」の条件も必要であることが分かります。
（ ⑩の条件は(B)＝(C)であるようにも見えますが、間違ってます。データ開始行が５行目と仮定して考えると分かります。）

以上を元に、もう一度コードを見ていきます。
１１３行目のCurrentRegionの選択セルは、図４－２１から「データ開始行の１つ上」に決めたので、「Psh.Cells(Prow - 1, Pcol).CurrentRegion」としました。
そして１１８行目は「データ範囲のみ」を選択しているコードで、CurrentRegion範囲を「Prow - Rng.Row」だけ下に移動し、行方向のサイズは「Rng.Rows.Count - (Prow - Rng.Row)」にしています。

この範囲に対してデータの消去を行いますが、何のメソッドを使って消去をするかを考えます。
一般的には「範囲.ClearContents」や「範囲＝" "」が良く使われます。しかし試運転してみると不具合点が見つかりました。

今回システムで、まず大量のデータがあるフォルダーを解析すると、シート右端のスクロールバーのMAX値がデータ行の下端になります。
次に少量データのフォルダーを解析すると、データ行数は少ないのですが、シート右端のスクロールバーのMAX値は大きいままで変わりません。
つまり「スクロールバーを少し動かしても、大きく動いてしまう（＝敏感になる）」不具合が発生し、作業がやり難くなります。

この原因は、ClearContentsメソッド（「長さゼロの文字列を埋める」でも同じです）では、値は消去できても書式等は残ってしまうためです。その代わりに「Clearメソッド」を使用すると、書式まで消去しますのでスクロールバーも戻ってくれます。
（但し、上書き保存をするまでは、スクロールバーは戻りません。）
ということで、今回データの消去には「Clearメソッド」を使用しました。

その前の１１７行目は「データ行数がゼロだった時には、何もしない」コードです。条件は２つあり「CurrentRegion範囲が１行」または「CurrentRegion範囲の行数＋CurrentRegion範囲の先頭行がデータ先頭行位置」です。

少し前に戻って１１５行目は、フィルタで絞り込んでいた時にはフィルタを解除しています。
これはフィルタを掛けたまま（行を見えない状態にしたまま）データ消去をしても、見えていない行に対してはデータが消えずに残ってしまうためです。

この現象は、データ範囲に対して一括で消去する時に発生します。Clearメソッド、ClearContentsメソッド、長さゼロの文字列を埋める方法　どれでも同じです。
但し１行ごとに消去していく方法（例えばFor～Nextを使う）であれば、時間が掛かっても見えない行のデータも消去してくれます。しかしそうやって全データを消去できたとしても、新しく出力したデータにしてみれば意味の無い絞り込みです。
ですので、データ範囲の消去を行う前にフィルタ解除をしています。

５．最後に

今回のシステムはファイル・フォルダーを書き出すだけのものですが、少し甘く見ていました。見えないフォルダーや開けないフォルダーの存在です。属性値（Attributes）だけでは説明できず、Attributes＝16の普通のフォルダーに見えるものでも開けないものがあり、最終的にはエラー処理で対応せざるを得ませんでした。

FileSystemObjectオブジェクトはファイルを扱う時には必須のものですが、このような情報は他のサイトでもあまり紹介されていないようです。
しかし、分からないこと・人がやっていないことだからこそ、新しそうな真実？を見つけるのは楽しく、つい時間を忘れてしまいます。


指定フォルダ配下のファイル情報を取得（it-042.xlsm）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始）
解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。