◆File / Folder の一覧を取得する

  File / Folder の一覧を取得する方法の説明です。

  Excel の表の操作とはまったく関係ありませんが、Folder の中にあるすべてファイルに
  何らかの処理をするアプリケーションを作成する場合などに使えます。


  次は File の一覧を取得するサンプルです。

  FolderSpec はフォルダーへのパスを String で指定します。

  取得した File名をセルのA1から順番に入力していきます。

  Foldersコレクションを取得して、For Each ステートメントで、ファイル名
  を順番に取り出しています。

Sub ListUp_FileList(FolderSpec)

  Dim File_Collection As Object
  Dim File_List As Variant
  Dim cnt As Integer
    
  Set File_Collection = CreateObject("Scripting.FileSystemObject") _
                       .GetFolder(FolderSpec).Files

  cnt = 1
  For Each File_List In File_Collection

      Range("A" & Format(cnt)) = File_List.Name
      cnt = cnt + 1
  Next
    
End Sub

  同様に Folder の一覧を取得するサンプルです。

Sub ListUp_FolderList(FolderSpec)

  Dim Folder_Collection As Object
  Dim Folder_List As Variant
  Dim cnt As Integer
    
  Set Folder_Collection= CreateObject("Scripting.FileSystemObject") _
                        .GetFolder(FolderSpec).SubFolders

  cnt = 1
  For Each Folder_List In Folder_Collection

      Range("A" & Format(cnt)) = Folder_List.Name
      cnt = cnt + 1
  Next
    
End Sub

  example12 をダウンロードして動作を確認してください。