VBAサンプル集
エクセルでファイル一覧を作成.№6（FileSystemObject1）

エクセルでファイル一覧を作成.№6（FileSystemObject1）

エクセルでファイル一覧を作成します、

サブフォルダ以下も全て取得し、一覧表示します、

前回の予告通り、FileSystemObjectを使います。

Dir関数では限界があります、というか、かえって面倒です。

FileSystemObjectを使うことによって、すっきりしたコードになりますし、

次回以降の再帰処理もしやすくなります。

前回までのプログラム。

これを、FileSystemObjectを使って書き直します。

FileSystemObjectを使用したプログラム

「ツール」→「参照設定」に、「Microsoft Scripting Runtime」にチェックを付けて下さい。

Set objFSO = New FileSystemObject
インスタンスを生成します。

えっと、インスタンスって何？

ってなりますよね、当然です。

どうしましょうか・・・説明が・・・大変・・・うまく説明出来ない・・・

この下で、インスタンスについて説明します。

objFSO.FolderExists(strDir)

フォルダーの存在確認です。

存在している場合に、Trueが返ります。

Set objFolder = objFSO.GetFolder(strDir)
指定したフォルダを表すFolderオブジェクトを取得しています。

これも解りづらいですよね。

strDirはフルパスの文字列です。

このフルパスが示す、実際のフォルダをオブジェクトとして取得しています。

For Each objFolderSub In objFolder.SubFolders

フォルダオブジェクトのobjFolderに含まれる、サブフォルダを順に取り出します。

Cells(i, 2) = objFolderSub.Name

フォルダオブジェクトの名前を取得します。

フルパスではありません、フォルダ名です。

For Each objFile In objFolder.Files

フォルダオブジェクトのobjFolderに含まれる、ファイルを順に取り出します。

With objFile

　　Cells(i, 2) = .Name
　　Cells(i, 3) = WorksheetFunction.RoundUp(.Size / 1024, 0)
　　Cells(i, 4) = .DateLastModified
objFileの

.Name:名前

.Size:サイズ

.DateLastModified:最終更新日時

Set objFSO = Nothing

オブシェクトの解放をしています。

このオブジェクトの場合は、解放しなくても問題が発生することは無いと思いますが、

オブジェクトによっては、解放しないと誤作動を起こします。

オブジェクトを使ったら、解放する癖をつけましょう。

インスタンスについて

IT用語辞典には、

クラスを基にした実際の値としてのデータのこと。

クラスと対比して用いられることが多く、クラスを「型」、インスタンスを「実体」として説明されることもある。

これ読んで解る人には、最初から説明が不要ですよね。

まず、FileSystemObjectはクラスです。

Dim objFSO As FileSystemObject
は、FileSystemObjectクラス型を指定しているだけです。

Set objFSO = New FileSystemObject

これで、実体をもつオブジェクトが生成されます。

例えば、「家」というクラスがあるとして、

Dim objHouse As 家

は、objHouse は家ですよ、と宣言しただけです。

Set objHouse = New 家

これで新築の家が建つのです。（ただし、飾りっけの無いただの家です）

そして、objHouseのプロパティやメソッドで、家の間取りや装飾を指定して、独特な家を完成させます。

当然、家はいくらでも建てる事が出来ます。

変数を増やして、Newで、どんどん家が建ちます。

また、プロパティやメソッドで、具体的な家が出来た後でも、

Set objFSO = New FileSystemObject

これを実行すれば、元の新築に戻ります。

そして、objHouse = Nothing

これで、家は取り壊しとなります。

うーん、これで理解できますでしょうか・・・

クラスやオブジェクトといっても、WorksheetやRangeは、インスタンスの生成は出来ません。

それは、クラスの構造が違うのです、Newをサポートしていないのです。

正直言って、インスタンスを理解する必要はないでしょう。（本職の方は別ですよ）

オブジェクトには、インスタンスの生成が必要なオブシェクトがあるとだけ覚えて下さい。

次回は、サブフォルダ以下を取得します。

再帰処理です・・・

これも、どうかな、どうやって説明するかが問題です。