VBAファイルやフォルダーのコレクション取得(FilesとFolders)

FileオブジェクトのFilesコレクションと、FolderオブジェクトのFoldersコレクションについてです。

1 FilesコレクションとFoldersコレクション
- 1.1 概要
2 VBAサンプル（Filesコレクション）
- 2.1 指定したフォルダのファイル名を全取得する例。
3 VBAサンプル（Foldersコレクション）
- 3.1 指定したフォルダーのサブフォルダー名を全取得する例

FilesコレクションとFoldersコレクション

概要

Filesコレクション：フォルダー内のすべてのFileオブジェクトです。

Foldersコレクション：Folderオブジェクトに含まれるすべてのFolderオブジェクトのコレクションです。

VBAサンプル（Filesコレクション）

指定したフォルダのファイル名を全取得する例。

・指定したFilesコレクションのFileオブジェクトのNameプロパティをForEachで繰り返し取得。

【サンプル】

Sub Filesコレクション()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FileSystemObjectのGetFolderメソッドでFolderオブジェクトをセット

Dim fol As Folder

Set fol = fso.GetFolder("D:\sample")

'FolderオブジェクトのFilesコレクションをセット

Dim fc

Set fc = fol.Files 'FolderオブジェクトのFilesプロパティはFilesコレクションを返す

'FilesコレクションをForEachで繰り返し処理

Dim f As File

For Each f In fc

'FileオブジェクトのNameプロパティを取得

Debug.Print f.Name

End Sub

【結果】

指定したフォルダーのファイル名のみ取得。

VBAサンプル（Foldersコレクション）

指定したフォルダーのサブフォルダー名を全取得する例

・指定したFoldersコレクションのFolderオブジェクトのNameプロパティをForEachで繰り返し取得。

【サンプル】

Sub Foldersコレクション()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FileSystemObjectのGetFolderメソッドでFolderオブジェクトをセット

Dim fol As Folder

Set fol = fso.GetFolder("D:\sample")

'FolderオブジェクトのFoldersコレクションをセット

Dim fc As Folders

Set fc = fol.SubFolders '← Foldersコレクションを返す

'FoldersコレクションをForEachで繰り返し処理

For Each fol In fc

'FolderオブジェクトのNameプロパティを取得

Debug.Print fol.Name

End Sub

【結果】

指定したフォルダーのサブフォルダー名のみ取得。