FileSystemObject CreateObject関数⇔参照設定違いを理解してエラー防止（Excel VBA）

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

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

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

CreateObject 関数を利用する方法

関数を利用して、FileSystemObjectを使えるようにする方法です。

【利用方法】

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

【メリット】

【デメリット】

VBE画面の設定を利用する方法です。

【利用方法】

VBE画面[ツール] ー [参照設定] をクリックします。

「Microsoft Scripting Runtime」にチェックを入れて<OK>ボタンをクリックし
ます。

参照設定が完了したら、下記コードの記述が可能になります。
```
Dim FSO As FileSystemObject
Set FSO = New FileSystemObject

＊＊＊変数「FSO」を利用した処理＊＊＊
Set FSO = Nothing
```
変数「FSO」をFileSystemObjectとして宣言します。

Dim FSO As FileSystemObject

変数の宣言で「Dim FSO As Object」としてしまうとVBAのエラーはでませんが、インテリセンス機能（自動メンバー表示）が利用できませんのでご注意ください。
次に、変数「FSO」にFileSystemObjectをセットします。

Set FSO = New FileSystemObject

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

Set FSO = Nothing

【メリット】

【デメリット】

どちらのコードも処理の最後に

Set FSO = Nothing

と、変数「FSO」を解放するコードが必要です。

FileSystemObject のインスタンスが、メモリ上にずっと残ってしまうことがあるからです。

それがどういう状況なのかはわからないのですが、私も長時間マクロ処理をしていると処理が遅くなっていく現象に見舞われることがあります。

そんな時は、Excelと一旦閉じて再度立ち上げると、その現象は解消されます。

そんなこともあり、オブジェクト変数は最後に「Nothing」として、メモリ上から消すように心がけています。

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