Dir 関数でパソコン内のファイルを検索する。

Sub 存在するファイルを検索()
  Debug.Print """" & Dir("C:¥Users¥xxx¥デスクトップ¥folder1¥file1.txt") & """"
End Sub

1. 「Dir(“C:¥Users¥xxx¥デスクトップ¥folder1¥file1.txt”)」
   Dir( 検索条件 ) の書式になっています。
2. “”””
   文字の始まりと終わりが分かりやすいように、ダブルクォーテーション「”」で囲んでいます。
   「”」二つで「”」を出力出来ます。「””」を「”」で囲んで「””””」としています。
3. 実行結果は以下のようになりました。
   

Sub 存在しないファイルを検索()
  Debug.Print """" & Dir("C:¥Users¥xxx¥デスクトップ¥folder1¥file0.txt") & """"
End Sub

1. 「file0.txt」
   file0.txt は存在していません。ファイルが存在しない場合、長さ 0 の文字列が返ってくるようです。
2. 実行結果は以下のようになりました。
   

Sub Dir関数の動作理解のために同じ拡張子のファイルを検索()
  Debug.Print """" & Dir("C:¥Users¥xxx¥デスクトップ¥folder1¥*.txt") & """" 'Dir 関数実行 1 回目
  Debug.Print """" & Dir & """" '2 回目
  Debug.Print """" & Dir & """" '3 回目
  Debug.Print """" & Dir & """" '4 回目
  Debug.Print """" & Dir & """" '5 回目 'エラー発生
  Debug.Print """" & Dir & """" '6 回目
End Sub

1. 「Dir 関数実行 1 回目」
   1 回目は検索条件を指定しています。
2. 「*.txt」
   ワイルドカードのアスタリスク「*」はその位置に複数の文字があることを表現しています。クエスチョンマーク「?」で何かの 1 文字を表現出来ます。
3. 「2 回目」
   同じ検索条件で再検索する場合は Dir のみで実行します。
4. 「3 回目」
   3 回目まではファイル名が出力されます。
   

Sub ループ処理で同じ拡張子のファイルを検索()
  Dim a
  a = Dir("C:¥Users¥xxx¥デスクトップ¥folder1¥*.txt") '実行順 1
  Do While a <> "" '2,6,10,14
    Debug.Print """" & a & """" '3,7,11
    a = Dir '4,8,12
  Loop '5,9,13
End Sub '15

1. 「Do … Loop」
   私が苦手とする Do Loop ステートメントを使用していますが、 Dir 関数のヘルプに載っていた制御構造です。

   Dir 関数 – Microsoft サポート

   https://support.microsoft.com/ja-jp/office/dir-%E9%96%A2%E6%95%B0-1a1a4275-f92f-4ae4-8b87-41e4513bba2e

2. 「実行順 1 … 15」
   処理の順番です。実行順 12 で長さ 0 の文字列が返ってきます。そのまま 13 へ進みますが、 14 で「Do While a <> “”」の条件に一致しないので Do Loop を抜けます。
3. 実行結果は以下のようになりました。
   

Sub ループ処理で全てのファイルを検索()
  Dim a
  a = Dir("C:¥Users¥xxx¥デスクトップ¥folder1¥*.*")
  Do While a <> ""
    Debug.Print """" & a & """"
    a = Dir
  Loop
End Sub

1. 実行結果は以下のようになりました。
   

Sub 第二引数にvbDirectoryを指定_フォルダを検索()
  Dim a
  a = Dir("C:¥Users¥xxx¥デスクトップ¥folder1¥folder2", vbDirectory)
  Debug.Print """" & a & """"
End Sub

1. 「vbDirectory」
   vbDirectory は VBA.VbFileAttribute に入っている定数のようです。値は「16」と定義されているようです。

   Dir 関数 – Microsoft サポート

   https://support.microsoft.com/ja-jp/office/dir-%E9%96%A2%E6%95%B0-1a1a4275-f92f-4ae4-8b87-41e4513bba2e

2. 実行結果は以下のようになりました。
   

Sub ループ処理_フォルダを検索()
  Dim a
  a = Dir("C:¥Users¥xxx¥デスクトップ¥folder1¥*", vbDirectory)
  Do While a <> ""
    Debug.Print """" & a & """"
    a = Dir
  Loop
End Sub

1. 実行結果は以下のようになりました。フォルダ名のみ取得されると思っていましたが、ファイル名、ピリオドの記号も取得されています。
   

Sub ループ処理_フォルダ名のみ抽出()
  Dim a
  a = Dir("C:¥Users¥xxx¥デスクトップ¥folder1¥", vbDirectory)
  Do While a <> ""
    If a <> "." And a <> ".." Then
    If (GetAttr("C:¥Users¥xxx¥デスクトップ¥folder1¥" & a) And vbDirectory) = vbDirectory Then
      Debug.Print """" & a & """"
    End If
    End If
    a = Dir
  Loop
End Sub

1. 「If a <> “.” And a <> “..” Then」
   現在のフォルダ「.」と親フォルダ「..」以外の場合。
2. 「GetAttr() And vbDirectory) = vbDirectory」
   フォルダの属性を取得して、定数 vbDirectory（=16）と一致しているか判定。
3. 実行結果は以下のようになりました。
   

Sub GetAttr関数でファイルの属性取得()
  Debug.Print GetAttr("C:¥Users¥xxx¥デスクトップ¥folder1¥file1.txt")
End Sub

1. 「GetAttr」
   GetAttr 関数は「属性の値」の合計値を返すようです。「属性の値」は、フォルダ属性「16」、アーカイブ属性「32」のように定数で決まっているようです。

   GetAttr 関数 (Visual Basic for Applications) | Microsoft Learn

   https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/getattr-function

2. 実行結果は以下のようになりました。
   

Sub GetAttr関数でフォルダの属性取得()
  Debug.Print GetAttr("C:¥Users¥xxx¥デスクトップ¥folder1¥folder2")
End Sub

1. 結果は以下のようになりました。
   

Sub And_vbDirectoryを付加_GetAttr関数でフォルダの属性取得()
  Debug.Print GetAttr("C:¥Users¥xxx¥デスクトップ¥folder1¥folder2") And vbDirectory
End Sub

1. 実行結果は以下のようになりました。