Dirを利用したファイル検索（ファイル検索比較１）

これから何回かに渡ってVBAでのファイル検索の方法を検証してみようと思います。

まずはDir関数からです。

Dir関数の使用方法

Dir関数

Dir ( [pathname], [ attributes VbFileAttribute = vbNormal ]) as String

引数	内容
pathname	省略可能。検索したいファイル・フォルダ名の一部ないし全部を指定します。
attributes	省略可能。検索対象とするファイル属性をVbFileAttribute列挙型で指定します。・vbNormal　０（(既定値) 属性のないファイル）・vbReadOnly　１（属性のないファイルと読み取り専用のファイル）・vbHidden　２（属性のないファイルと隠しファイル）・vbSystem　４（属性のないファイルとシステムファイル）・vbVolume　８（ボリュームラベル。他の属性を指定した場合は無視されます）・vbDirectory　１６（属性のないファイルとディレクトリまたはフォルダー）

引数

内容

pathname

省略可能。検索したいファイル・フォルダ名の一部ないし全部を指定します。

attributes

省略可能。検索対象とするファイル属性をVbFileAttribute列挙型で指定します。
・vbNormal　０（(既定値) 属性のないファイル）
・vbReadOnly　１（属性のないファイルと読み取り専用のファイル）
・vbHidden　２（属性のないファイルと隠しファイル）
・vbSystem　４（属性のないファイルとシステムファイル）
・vbVolume　８（ボリュームラベル。他の属性を指定した場合は無視されます）
・vbDirectory　１６（属性のないファイルとディレクトリまたはフォルダー）

引数pathnameは省略可能だが、Dir関数の初回使用時は必ず指定する必要がある。

最初に一致した検索結果のファイル・フォルダ名のみを文字列型で返します。

２つ目以降の検索結果を抽出する場合は引数指定なしで再度Dir関数を実行することで抽出することができる。

検索に一致するものが無くなると、Dir関数は長さ０の文字列（””）を返します。

使用例

Sub DirSearch()
     Dim myCol As Collection
     Dim myFileName As String
     Set myCol = New Collection
     
     '該当フォルダ以内の拡張子xlsのファイルを検索
     '検索結果にxlsmのファイルが抽出されている件はリンク先参照
     myFileName = Dir("C:\Users\ユーザー名\Desktop\Dircheck\*.xls", vbNormal)
     Do Until myFileName = ""
          myCol.Add myFileName
          myFileName = Dir
     Loop
     
     '検索結果を蓄積していたCollectionから配列へ転記してからセルへ一括転記
     Dim myItem As Variant
     Dim myVar As Variant
     Dim i As Long: i = 1
     ReDim myVar(1 To myCol.Count, 1 To 1)
     For Each myItem In myCol
          myVar(i, 1) = myItem
          i = i + 1
     Next
     
     Range("A1").Resize(UBound(myVar), 1).Value = myVar
End Sub