3.2 フォルダの中を探る - VBScript & JScript(JavaScript) Tips for WSH

3.2 フォルダの中を探る

　フォルダに入っているファイルやフォルダの情報を得るときの方法です。シェルアプリケーションオブジェクトを使って行います。

使用例

　フォルダに入っているファイルやフォルダの情報を得る例です。コマンドプロンプトのDirコマンドと似たようなことをします。例は、c:\happyというフォルダに入っているファイルやフォルダの一覧を表示するプログラムです。一覧を表示するとき、ファイル名の他にサイズ（ファイルのとき）と最終更新日時を表示しています。

　何はともあれ、まずは探りを入れたフォルダのフォルダオブジェクトを作らねばなりません。これは、シェルアプリケーションオブジェクトのNameSpaceというメソッドで行い(②)、パラメタにはもちろん探りを入れたりフォルダのフルパスを指定します。

　フォルダオブジェクトを作ったら、アイテムオブジェクトを、フォルダオブジェクトのItemsメソッドを使って作ります(③)。これで、そのフォルダに入っているファイルやフォルダ全ての情報が取得できました。

　次はいよいよ探りを入れる部分ですが、まずは何個入っていたかを知る必要がありますね。アイテムオブジェクトのCountプロパティを見れば、いとも簡単にバレちゃいます。ちなみに、総数から１を引いた数を総数（objFolderItems.Count-1）としていますが、とりあえずは置いといて…

　フォルダアイテムオブジェクトからファイルやフォルダの情報であるアイテムオブジェクトを取り出すには、Itemメソッドを使います(⑤)。パラメタには0から始まる番号を指定します。例えば、アイテムが10コるときは0～9の範囲で指定します。For文の所でobjFolderItems.Count-1としていたのはそのためです。

　アイテムを取り出したら、そのアイテムがフォルダであるかファイルであるかを判断しましょう(⑥)。アイテムオブジェクトのIsFolderがTrueならそのアイテムはフォルダ、Falseならファイルです。

　そして情報の表示（⑦または⑧）です。各情報は、アイテムオブジェクトからファイル（フォルダ）名はNameプロパティで、サイズ（ただしファイルの場合）はSizeプロパティで、最終更新日時はModifyDateプロパティで取得できます。フォルダの場合は、フォルダと分かるように先頭にDを入れてみました。

　■VBScriptの記述例

Option Explicit

Dim objApl
Dim objFolder
Dim objFolderItems
Dim objItem
Dim i

'①シェルアプリケーションオブジェクトを作成します
Set objApl = CreateObject("Shell.Application")

'②探りを入れたいフォルダのオブジェクトを作成します
Set objFolder = objApl.NameSpace("C:\happy")

'③フォルダオブジェクトから、入っているファイルやフォルダの全情報を取得します
Set objFolderItems = objFolder.Items()

'④何個入っていたかは、Countで参照
For i=0 To objFolderItems.Count-1

    '⑤ファイルやフォルダの情報を１コ取り出します
    Set objItem = objFolderItems.Item(i)

    '⑥取り出した物がファイルかフォルダかを判定
    If objItem.IsFolder = True Then
       '⑦取り出した物がフォルダの場合のメッセージ
       WScript.Echo "D " & objItem.Name & "  ModifyDate:" & objItem.ModifyDate
    Else
       '⑧取り出した物がファイルの場合のメッセージ
       WScript.Echo "  " & objItem.Name & _
                    "  Size:" & objItem.Size & "Bytes  ModifyDate:" & objItem.ModifyDate
    End If

Next

Set objItem = Nothing
Set objFolderItems = Nothing
Set objFolder = Nothing
Set objApl = Nothing

　■JScript(JavaScript)の記述例

var objApl;
var objFolder;
var objFolderItems;
var objItem;
var i;

//①シェルアプリケーションオブジェクトを作成します
objApl = new ActiveXObject("Shell.Application");

//②探りを入れたいフォルダのオブジェクトを作成します
objFolder = objApl.NameSpace("c:\\happy");

//③フォルダオブジェクトから、入っているファイルやフォルダの全情報を取得します
objFolderItems = objFolder.Items();

//④何個入っていたかは、Countで参照
for(i=0;i<objFolderItems.Count;i++) {

    //⑤ファイルやフォルダの情報を１コ取り出します
    objItem = objFolderItems.Item(i);

    //⑥取り出した物がファイルかフォルダかを判定
    if (objItem.IsFolder==true) {
       //⑦取り出した物がフォルダの場合のメッセージ
       WScript.echo("D " + objItem.Name + " ModifyDate:" + objItem.ModifyDate);
    } else {
       //⑧取り出した物がファイルの場合のメッセージ
       WScript.echo(" " + objItem.Name +
                    " Size:" + objItem.Size + "Bytes ModifyDate:" + objItem.ModifyDate);
    }

}

objItem = null
objFolderItems = null
objFolder = null
objApl = null

[PR]結城圭介。が書いたVBS(WSH)の本

■最速攻略 VBScriptサンプル大全集
◆最速攻略 Excel VBA サンプル大全集

（アマゾンへジャンプします）

VBScript&JScript Tips

■ファイル・フォルダ操作編

2.Scripting.FileSystemObject
  2.1 ファイルシステムオブジェクトが基本
  2.2 パスを編集する
  2.3 フォルダを新たに作る
  2.4 テキストファイルを新たに作る
  2.5 テキストファイルの行単位の読み込み
     ・他にエラー回避、Subプロシジャ
  2.6 テキストファイルの一括読み込み
  2.7 テキストファイルへの書きこみ
  2.8 フォルダやファイルのコピー
  2.9 フォルダやファイルの移動
     ・応用技でファイルやフォルダ名の変更
  2.10 フォルダやファイルの削除
  2.11 フォルダやファイルの有無を調べる
     ・他に中間ファイル(フォルダ)の作成
  2.12 ファイルの情報を見る
     ・サイズ、ファイルの種類、更新日など
  2.13 フォルダの情報を見る
     ・サイズ、更新日など

3.Shell.Application
  3.1 シェルアプリケーションオブジェクト
  3.2 フォルダの中を探る
     ・他にファイルかフォルダかの判定
  3.3 フォルダの中を下の階層まで探る
     ・フォルダ容量やファイル数を取得
     ・プロシジャの再帰呼び出し

■基本編
■ファイル・フォルダ操作編
■Excel & Access操作編
■インターネットエクスプローラ操作編
■データアクセス編

Happy! Happy! Islandその他のコンテンツ

■VBAプログラミング、その他
　Access VBAプログラミング＆Tips
　Excel VBA(エクセルマクロ)プログラミング＆Tips
　VBScript＆JScriptプログラミング＆Tips for WSH
　プログラミング基礎・入門
　HTMLの書き方
■ダウンロードコーナー
　AccessとExcelのフリーソフト
■コミュニティー
　VBA質問掲示板
■その他
　オレの話を聞けぇ♪（仮称／コラム）
　管理人プロフィール
　管理人へメール
■別館(海外向けサイト)
　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL!

VBAプログラミング＆Tips集の
"Happy! Happy! Island"トップページへ

[リンク]IT関連情報サイトなど

gihyo.jp
技術評論社提供のIT関連コンテンツサイト

モーグ
スキルアップ・問題解決はモーグにおまかせ！

[リンク]一番クリックした国が優勝

ClickClickClick.com
クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。

[PR]証券会社・投資運用関連サイト

カブドットコム証券
逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！

マネックス証券
オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！

Ｅ＊トレード証券
オンライン専業証券№１の口座数！業界最低水準の手数料体系と充実のサービスラインナップ！

楽天証券のマーケットスピード
ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！

オンライン証券徹底比較
価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！