第16回　FileSystemObjectオブジェクトを利用する（1）：基礎解説 演習方式で身につけるチェック式WSH超入門（1/2 ページ）

連載目次

　前回までは、WSHのオブジェクト（WScriptオブジェクト、WshShellオブジェクト、WshNetworkオブジェクト）について解説してきた。

　今回からは、主にファイル操作を行うためのオブジェクトであるFileSystemObjectオブジェクトと、そこから呼び出し可能な各オブジェクトについて解説していく（これらのオブジェクトは、WSH 5.6が含まれるWindows Script 5.6のパッケージに含まれている）。

FileSystemObjectオブジェクトとは

　FileSystemObjectオブジェクトは、WSH 5.6やVBScript 5.6などを含むWindows Script 5.6パッケージの中の1つ、Windows Script Runtime 5.6ライブラリに含まれるオブジェクトである。WSH 5.6には、スクリプト・ホスト実行ファイルwscript.exe、cscript.exeのほか、WScriptオブジェクト、WshShellオブジェクト、WshNetworkオブジェクト、本連載では取り上げなかったがWshController／WshRemoteオブジェクトが含まれている。

　第1回ではFileSystemObjectオブジェクトを便宜上、WSH内部オブジェクトとして紹介したが、厳密にいうと、「WSHの含まれるパッケージに含まれるオブジェクト」である。また、WSH以外でもASP（Active Server Pages）、Visual Basic 6.0などでも用いられている。しかしながらWSHを使ってファイル操作を行うにはFileSystemObjectオブジェクトは必須であり、WSHがインストールされている環境には必ず含まれているので、ほぼWSHのセットとして考えて差し支えない。

　FileSystemObjectはProgIDが“Scripting.FileSystemObject”であり、文字どおりファイル・システムにアクセスするためのオブジェクトである。このオブジェクトを使うことでファイルやフォルダの移動／コピー／削除や、ファイルの拡張子名や親フォルダ・パスの取得などが行える。

　また、ドライブ、フォルダ、ファイルをオブジェクトとして取得するメソッドがあり、それぞれDriveオブジェクト、Folderオブジェクト、Fileオブジェクトに対応する。これらのオブジェクトはファイル（フォルダ、ドライブ）名やファイル（フォルダ）属性、最終更新日時などのプロパティを持ち、取得／設定が可能である。また、Drive、Folder、FileオブジェクトのコレクションであるDrivesコレクション、Foldersコレクション、Filesコレクションというのも存在し、それぞれ対応するオブジェクトを要素として持つ。これらのコレクションは主に親オブジェクトのメソッドやプロパティから取得可能である。（例えばFilesコレクションなら当該フォルダのFolderオブジェクトのFilesプロパティから取得可能であり、当該フォルダに含まれるすべてのファイルの集合のインスタンスに対応している）。

　さらに、テキスト・ファイルをテキスト・ストリーム（TextStream）オブジェクトとして取得し、文字列を読み書き可能なメソッドも存在する。

　今回はこのうち、FileSystemObjectオブジェクト直下のメンバを取り上げ、解説していく。次回以降にFileオブジェクトやTextStreamオブジェクトなど、FileSystemObjectオブジェクトから生成可能なインスタンス、およびDictionaryオブジェクトについて解説する予定である。

FileSystemObjectオブジェクトのメンバ

　FileSystemObjectオブジェクトのメンバは以下の4つに大別できる。

　今回はこのうち、1．と2．のメンバについて取り上げる。

ファイルなどの情報を取得する

　ファイルなどの情報を取得するには、主に「Get〜」で始まるメソッドを用いて取得する。

　これは、コマンド・プロンプトの実行ファイルcmd.exeのファイル情報を得るスクリプトである。このスクリプトを実行すると、例えば次のように表示される。

GetFileInfo.vbsの実行例
FileSystemObjectオブジェクト直下のメソッドで取得できる情報には、このようなものがある。

　なお注意すべきなのは、これらのメソッドはすべて、ファイルが実際に存在してもしなくても実行可能である点だ。これらのメソッドはただ単に引数に渡された文字列を解析して、ドライブ名や拡張子などを返すだけである。試しにこのスクリプトの

の部分を、

としてもらいたい。GetTempNameメソッドは拡張子が「〜.tmp」になるランダムなファイル名を文字列として返すメソッドである。またBuildPathメソッドは、引数に与えられた2つのパスに対し、適切なパス区切り文字“\”を補うか、あるいは（余分なら）削除して連結し、正しいパスにするメソッドである（*）。実行してみよう。

objFSO.GetTempName()を使った場合の実行例
ファイル自体が存在しなくても、Get系のメソッドでファイル情報が取得できる。

　このように、ファイル自体が存在しなくても、パスの形式を取った文字列ならば、ドライブ名や親フォルダ名などが返される。またファイルだけではなく、フォルダの場合も同様に取得可能である。

　ファイルが存在しない場合はファイル情報を取得しない、といったコードを書きたければ、先ほどのサンプル・ファイルGetFileInfo.vbsの、

という部分に、次のコードを入れるとよい。

　こうすることで、引数のファイルが存在しない場合はスクリプトを終了させることができる。FileExistsメソッドは、引数に与えられたパスのファイルが存在する場合はTrueを、存在しない場合はFalseを返す。よく使うメソッドなので覚えておくとよいだろう。また同じ種類のメソッドとして、ドライブの存在を確認するDriveExistsメソッド、フォルダの存在を確認するFolderExistsメソッドがある。

　ここで問題を1つ出そう。スクリプトが存在するフォルダにランダムな名前のファイルを作成することを想定し、そのフルパスを取得するところまでをコード化してもらいたい。

マーカーで隠れたところを選択してチェックしてみよう。

---

Option Explicit
Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

Dim strTempFilePath, strParentFolderPath

'スクリプトのあるフォルダの親フォルダのパスを取得
strParentFolderPath = objFSO.GetParentFolderName(WScript.ScriptFullName)

'ランダムな名前のファイルのフルパスを取得
strTempFilePath = objFSO.BuildPath(strParentFolderPath, objFSO.GetTempName())

MsgBox strTempFilePath

Set objFSO = Nothing

　スクリプトの置かれている場所にあるファイルやフォルダを扱うことは多いので、この例は丸ごと覚えておくとよいだろう。