Excel VBAでオブジェクト指向プログラミング（FSO編）

2021-09-272024-01-05

■FileSystemObject(FSO)とは

FileSystemObject(FSO)はMicrosoftから提供されている、ファイルシステムへのアクセスに特化したオブジェクトで、さまざまな下位オブジェクト（サブクラス）やメソッドがあります。
操作対象によって大別すると、ドライブ関連、フォルダ関連、ファイル関連、テキストファイル関連の4グループに分かれており、提供されているメソッドは下表の通りです。
⇒詳細はMicrosoftのサイト（FileSystemObject オブジェクト）を参照して下さい。

ドライブ関連のメソッド

フォルダ関連のメソッド

ファイル関連のメソッド

テキストファイル関連のメソッド

■FSOを使用するための事前準備

FSOを使用するための事前準備は、以下の3ステップです。
⇒オブジェクトを使用するための事前準備とオブジェクトブラウザによる調査方法については、Excel VBAでオブジェクト指向プログラミング（事前準備編）を参照して下さい。

①ライブラリの参照設定
Visual Basic Editor(VBE)のファイルメニューから[ツール]-[参照設定]を選択し、参照設定ダイアログでMicrosoft Scripting Runtimeのチェックボックスにチェックを入れ、[OK]ボタンを押下。

②オブジェクト変数の定義
プログラムの宣言部でオブジェクト変数を定義。

1. Dim fso As Object

③インスタンスの生成
プログラムの処理部でインスタンスを生成。

1. Set fso = New FileSystemObject
2. 'ここにオブジェクトを使用した処理を記述
3. Set fso = Nothing

（参考）「Set fso = New FileSystemObject」の部分を「Set fso = CreateObject(“Scripting.FileSystemObject")」と記述すれば、ステップ①（ライブラリの参照設定）は不要です。

次項以降ではドライブ関連の操作、フォルダ関連の操作、ファイル関連の操作について、もう少し詳しく説明します。

■ドライブ関連の操作

FSOでドライブ関連の操作を行うためには、FSOのドライブ関連のメソッドおよびDriveオブジェクトを使用します。

Driveオブジェクトの取得方法

①GetDriveメソッドによる取得
FSOのGetDriveメソッドにより取得する方法です。

1. Dim fso As Object
2. Dim drive As Object
4. Private Sub Sample1()
5.     Set fso = New FileSystemObject
6.     Set drive = fso.GetDrive(“c:")
7.     'ここにDriveオブジェクトを使用した処理を記述
8.     Set drive = Nothing
9.     Set fso = Nothing
10. End Sub

②Drivesコレクションによる取得
FSOのDrivesプロパティにより、利用可能な全てのドライブの集合体であるDrivesコレクションを使用して取得する方法です。

1. Dim fso As Object
2. Dim drive As Object
4. Private Sub Sample2()
5.     Set fso = New FileSystemObject
6.     For Each drive In fso.drives
7.         'ここにDriveオブジェクトを使用した処理を記述
8.     Next drive
9.     Set fso = Nothing
10. End Sub

Driveオブジェクトのプロパティ

■フォルダ関連の操作

FSOでフォルダ関連の操作を行うためには、FSOのフォルダ関連のメソッドやFolderオブジェクトのメソッドおよびプロパティを使用します。

Folderオブジェクトの取得方法

①GetFolderメソッドによる取得
FSOのGetFolderメソッドにより取得する方法です。

1. Dim fso As Object
2. Dim folder As Object
4. Private Sub Sample3()
5.     Set fso = New FileSystemObject
6.     Set folder = fso.GetFolder(“c:\work")
7.     'ここにFolderオブジェクトを使用した処理を記述
8.     Set folder = Nothing
9.     Set fso = Nothing
10. End Sub

②Foldersコレクションによる取得
指定したフォルダのサブフォルダを取得する場合、FolderオブジェクトのSubFoldersプロパティにより、サブフォルダの集合体であるFoldersコレクションを使用して取得する方法です。

1. Dim fso As Object
2. Dim subfolders As Object
3. Dim folder As Object
5. Private Sub Sample4()
6.     Set fso = New FileSystemObject
7.     Set subfolders = fso.GetFolder(“c:\work").subfolders
8.     For Each folder In subfolders
9.         'ここにFolderオブジェクトを使用した処理を記述
10.     Next folder
11.     Set folder = Nothing
12.     Set fso = Nothing
13. End Sub

Folderオブジェクトのメソッド

Folderオブジェクトのプロパティ

■ファイル関連の操作

FSOでファイル関連の操作を行うためには、FSOのファイル関連のメソッドやFileオブジェクトのメソッドおよびプロパティを使用します。

Fileオブジェクトの取得方法

①GetFileメソッドによる取得
FSOのGetFileメソッドにより取得する方法です。

1. Dim fso As Object
2. Dim file As Object
4. Private Sub Sample5()
5.     Set fso = New FileSystemObject
6.     Set file = fso.GetFile(“c:\work\test.txt")
7.     'ここにFileオブジェクトを使用した処理を記述
8.     Set file = Nothing
9.     Set fso = Nothing
10. End Sub

②Filesコレクションによる取得
指定したフォルダのファイルを取得する場合、FolderオブジェクトのFilesプロパティにより、ファイルの集合体であるFilesコレクションを使用して取得する方法です。

1. Dim fso As Object
2. Dim files As Object
3. Dim file As Object
5. Private Sub Sample6()
6.     Set fso = New FileSystemObject
7.     Set files = fso.GetFolder(“c:\work").files
8.     For Each file In files
9.         'ここにFileオブジェクトを使用した処理を記述
10.     Next file
11.     Set file = Nothing
12.     Set fso = Nothing
13. End Sub

③FoldersコレクションとFilesコレクションの併用
指定したフォルダ配下の全ファイル（指定したフォルダ直下のファイルおよびサブフォルダの中にあるファイル）を処理したい場合は、FoldersコレクションとFilesコレクションを併用して、再帰的に処理を行うのが良いです。

1. Dim fso As Object
2. Dim folder As Object
3. Dim subfolder As Object
4. Dim file As Object
6. Private Sub Sample7()
7.     Set fso = New FileSystemObject
8.     Call Sample7_sub(“c:\work")
9.     Set fso = Nothing
10. End Sub
12. Public Sub Sample7_sub(path As String)
13.     Set folder = fso.GetFolder(path)
14.     For Each file In folder.Files
15.         'ここにFileオブジェクトを使用した処理を記述
16.     Next file
17.     For Each subfolder In folder.subfolders
18.         Call Sample7_sub(subfolder.path)
19.     Next subfolder
20. End Sub

Fileオブジェクトのメソッド

Fileオブジェクトのプロパティ

■FSOを利用したExcelツールの具体例

FSOを利用したExcelツールの具体例については、Excel VBAでオブジェクト指向プログラミング（FSOを利用したExcelツール編）を参照して下さい。