【Excel VBA】FileSystemObjectの設定と使い方

りゅう

こんにちは！りゅう(@ryupong_b)です。
今回は、FileSystemObjectの設定や使い方を解説します。

前提

FileSystemObjectとは

ドライブやフォルダ、ファイルを操作するためのオブジェクトです。
FileSystemObjectには、3つのコレクションと 4種類のオブジェクトが用意されています。
非常にシンプルな構成となっているので、ソースコードの可読性も向上します。

設定の手順

FileSystemObjectを使用するためには、参照設定という設定が必要となります。
以下に設定の手順を示します。

STEP

参照設定を開く

VBEの画面から、「ツール > 参照設定」を選択します。

STEP

Microsoft Scripting Runtimeを有効にする

参照設定ウィンドウより、「Microsoft Scripting Runtime」のチェックマークを付け、「OK」ボタンをクリックします。

FileSystemObjectを使用したコーディング

参照設定を終えた後、具体的にどのように使用するかをご説明します。
大きく分けて以下の3ステップでの使用が可能です。

インスタンスを生成する

FileSystemObjectを使用する前には、インスタンスというものを生成する必要があります。
インスタンスを生成する方法としては ２つのパターン があり、それぞれ解説します。

クラス変数とインスタンス生成を別々に実施する

まずはFileSystemObjectのクラス変数を宣言し、Newキーワードを用いてインスタンスを生成します。
（オブジェクト型の変数には、Setステートメントを使用してください。）

Public Sub useFileSystemObject()

    ' FileSystemObject型の変数を宣言
    Dim fso As FileSystemObject

    ' インスタンスを生成
    Set fso = New FileSystemObject
End Sub

インスタンスとは
クラス変数の時点では設計図のような状態となっており、実態が無い状態となります。
オブジェクト型変数は、インスタンスを生成して初めて使用することが出来ます。

クラス変数宣言と同時にインスタンスを生成する

クラス変数を宣言すると同時に、インスタンスを生成することが可能です。

Public Sub useFileSystemObject()

    ' FileSystemObjectインスタンスを生成
    Dim fso As New FileSystemObject
End Sub

めい

1行で表現できるので、ソースコードがスッキリします。

FileSystemObjectを使用する

前述の通り、FileSystemObjectを使用して、ファイルやフォルダ、ドライブの処理を呼び出すことが出来ます。
以下の例では、「ファイルの存在チェック」を実施しています。

Public Sub useFileSystemObject()

    ' FileSystemObject型の変数を宣言
    Dim fso As New FileSystemObject

    ' ファイルの存在チェック
    If fso.FileExists("C:\Users\xxx\Desktop\vba-hack\testFile.txt") Then

        ' ファイルが存在する
        MsgBox "ファイルが存在します。"
    End If

End Sub

インスタンスを解放する

オブジェクト型変数は、通常の変数とは異なり解放処理が必要となります。
使い終わったタイミングで、Nothingを代入しインスタンスを解放しましょう。

Public Sub useFileSystemObject()

    ' FileSystemObject型の変数を宣言
    Dim fso As New FileSystemObject

    ' ファイルの存在チェック
    If fso.FileExists("C:\Users\xxx\Desktop\vba-hack\testFile.txt") Then

        ' ファイルが存在する
        MsgBox "ファイルが存在します。"
    End If

    ' インスタンスの解放
    Set fso = Nothing
End Sub

最後に

今回は、FileSystemObjectの使用方法と設定について解説しました。
FileSystemObjectは、参照設定をしたりインスタンスを作成・解放をしたりする手間があるものの、メソッド・プロパティのネーミングがシンプルなので、可読性が向上すると思っています。

この記事が、皆さんのお力になれば幸いです！

オススメの書籍

できる大事典 Excel 関数 2016/2013/2010 対応 (「できる大事典」シリーズ)

ソフトカバー：3,850 円 / Kindle：3,118円

「Excelの関数なんて知ってるよ」という方こそ読んでほしい。「こんな関数あったんだ」という発見があります。本書籍ではExcel 2016まで対応とありますが、基本的な関数は網羅されています。使用例も掲載されており、非常に見やすいです。

ソフトカバーKindle

リーダブルコード ―より良いコードを書くためのシンプルで実践的なテクニック (Theory in practice)

2,640 円

本書籍では、可読性を向上させる基礎が詰まっています。 ExcelVBAでは使い捨てのコードを量産させがちですが、結果的に不具合の温床となってしまいます。プログラミングをする全ての方に読んで頂きたい1冊です！

ソフトカバー