CreateObject(“Scripting.FileSystemObject”) とは（Excel VBA）

以前お話ししました

参照：指定したフォルダ内とサブフォルダ内全てのファイル名を取得（Excel VBA）

の続きのお話です。

Dim FSO As Object
・
・
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each s_fd In FSO.GetFolder(pt).SubFolders
    Call ファイル名一覧取得(s_fd.Path, ws, t_row)
Next s_fd
Set FSO = Nothing

変数「FSO」にセットしているのは「FileSystemObject」というオブジェクトです。

1 FileSystemObject
2 CreateObject関数
3 GetFolderメソッド
4 【参考】

FileSystemObject

ファイルやフォルダは、セルやシートと違って、Excel上には存在しない外部オブジェクトです。

Excelでは、「FileSystemObject」というオブジェクトを使って、ファイルやフォルダを操作する（作成、削除、移動、コピー等）ことができます。

「FileSystemObject」を使用するには、下記の何れかの方法で準備をする必要があります。

CreateObject 関数を利用する方法
参照設定を利用する方法

参照： FileSystemObject CreateObject関数を使う方法・参照設定を使う方法違いを理解してエラー防止

今回はCreateObject 関数を使用します。

CreateObject関数

CreateObject関数を利用することで、FileSystemObjectを使うことができるようになります。

【CreateObject 関数の利用方法】

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

＊＊＊変数「FSO」を利用した処理＊＊＊

Set FSO = Nothing

まず、変数「FSO」をObjectとして宣言します。
参照設定をしていないので、「FileSystemObject」への宣言はできません。

Dim FSO As Object
次に、CreateObject関数を利用して、変数「FSO」にFileSystemObjectをセットします。

Set FSO = CreateObject(“Scripting.FileSystemObject”)

この記述をすることで、変数「FSO」をFileSystemObjectとして使うことができます。例1：FSO.FolderExists(フォルダパス)→フォルダ存在の確認します。
例2：FSO.GetFolder(フォルダパス)→フォルダーオブジェクトを返します。
処理の最後に、変数「FSO」を解放します。

Set FSO = Nothing

CreateObject関数ではなく参照設定を利用する方法もあります。しかし、参照設定では、バージョンの違いでエラーが出ることがあります。
私が業務で作る場合は、色々なPC環境で色々な方が使用することが多いので、参照設定は使用しないようにしています。

CreateObject関数と参照設定の違いについては

参照： FileSystemObject CreateObject関数を使う方法・参照設定を使う方法違いを理解してエラー防止

をご参照ください。

GetFolderメソッド

指定したパスのフォルダーオブジェクトを返します。

【SubFoldersプロパティ】

フォルダーオブジェクトには、対象のフォルダのサブフォルダを取得するSubFoldersプロパティがあります。

フォルダーオブジェクト.SubFolders

今回は、For Eachを使って、変数「s_fd」に、対象フォルダ（変数Ptにセットされたパスのフォルダ）のサブフォルダを順番に格納する処理しています。

For Each s_fd In FSO.GetFolder(Pt).SubFolders
・
・
Next  s_fd

変数「s_fd」にサブフォルダを格納することで、

s_fd.Path：サブフォルダのパス

と、情報を得ることができます。

【参考】

■■■スポンサーリンク■■■