FileSystemObjectオブジェクトの使い方 - Scripting.FileSystemObject

FileSystemObjectオブジェクトの使い方

VBScriptやJScriptでファイルやフォルダ（ディレクトリ）を扱う場合の基本です。テキストファイルの読み込みやフォルダ作成・削除、ファイルのパスを編集する機能など、FileSystemObjectにはテキストファイルやフォルダを操作するためのさまざまな機能が含まれています。

サンプルダウンロード

FileSystemObjectの使い方

　ファイルシステムオブジェクトを使うには、CreateObject関数でScripting.FileSystemObjectのインスタンス作成し、その後はインスタンスを保存した変数を使ってファイルやフォルダの操作を行います。

図 1FileSystemObjectの書式

Set 変数 = CreateObject("Scripting.FileSystemObject")

[VBS][VBA] Scripting.FileSystemObjectオブジェクトを作成します。

var 変数 = new ActiveXObject("Scripting.FileSystemObject")

[JS] Scripting.FileSystemObjectオブジェクトを作成します^※。

・変数
　オブジェクトを保存するための変数です。ファイルやフォルダを操作するための各機能は、インスタンスを保存した変数を経由して利用します。また、オブジェクトを使い終わったら、変数にNothingを保存し必ずオブジェクトを解放（クリア）しましょう。

【記述例】
Scripting.FileSystemObjectオブジェクトを作成します。

Set objFileSys = CreateObject("Scripting.FileSystemObject")

※JScriptの書式は、変数の宣言とオブジェクトの作成を同時に行う例です。

FileSystemObjectの使用例

　FileSystemObjectの使用例です。SetステートメントとCreateObject関数を使い、変数objFileSysにScripting.FileSystemObjectのインスタンスを保存します。その後は、変数「objFileSys」を使ってファイルやフォルダの操作が行えます。サンプルでは、実行スクリプトの作成日を表示する処理を行っています。

リスト 1Scripting.FileSystemObjectオブジェクトを作成する（VBScript版）

1
2
3
4
5
6
7
8
9
10

VBS

Option Explicit

Dim objFileSys

Set objFileSys = CreateObject("Scripting.FileSystemObject")

WScript.Echo WScript.ScriptName & " の作成日"
WScript.Echo objFileSys.GetFile(WScript.ScriptFullname).DateCreated

Set objFileSys = Nothing

リスト 2Scripting.FileSystemObjectオブジェクトを作成する（JScript版）

1
2
3
4
5
6

var objFileSys = new ActiveXObject("Scripting.FileSystemObject")

WScript.Echo(WScript.ScriptName + " の作成日");
WScript.Echo(objFileSys.GetFile(WScript.ScriptFullname).DateCreated);

objFileSys = null;

リスト 3Scripting.FileSystemObjectオブジェクトを作成する（Excel/Access/VBA版）

1
2
3
4
5
6
7
8
9
10
11
12
13
14

VBA

Option Explicit

Sub Sample()

    Dim objFileSys As Object

    Set objFileSys = CreateObject("Scripting.FileSystemObject")

    Debug.Print "このサンプルの作成日"
    Debug.Print objFileSys.GetFile(ThisWorkbook.FullName).DateCreated

    Set objFileSys = Nothing

End Sub

注：Accessで実行するときは ThisWorkbook.FullName の部分を CurrentProject.FullName に変更してください。

◆実行例
　サンプルスクリプトを実行すると、実行したスクリプトファイル（自分自身のファイル）の作成日が表示されます。

図 2サンプルスクリプトの実行結果（VBScript/JScript）