Tips - WSH

 【TOP】
フォルダ一覧を取得する
ファイル一覧取得と同じようにしてフォルダ内のサブフォルダ一覧を取得する方法を考えてみます。
サブフォルダ一覧を取得したいフォルダに、下記のようなスクリプトを作成して実行します。
この例では、「folderlist.txt」というファイルに上書きモードでフォルダ一覧を出力します。
folder.txt が存在しない場合は新規作成します。
FileSystemObject の CreateTextFile メソッドについては「ファイル一覧を取得するには？」をご覧下さい。
今回はフォルダ名と一緒にフォルダのサイズも併せて表示してみます。 

'ファイルシステムオブジェクトを取得する。
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

'このスクリプトが存在するフォルダ オブジェクトを取得する。
Set CurFolder = fso.GetFolder(".")

'出力ファイルを上書きモードで作成する。（存在しないときは新規作成）
Set outFileStream = fso.CreateTextFile(CurFolder.Path & "\folderlist.txt", True)

'ファイル一覧を出力する。
For Each folder In CurFolder.SubFolders
outFileStream.WriteLine folder.Name & Chr(32) & "SIZE:" & folder.Size & "Bytes"
Next

'オブジェクトの開放
outFileStream.Close()
Set outFileStream = Nothing
Set CurFolder = Nothing
Set fso = Nothing
【戻る】