VBscriptでディレクトリ一覧ファイルを抽出する方法について

質問

• VBscriptを使用して、Windows2000上でフォルダやサブフォルダを含むディレクトリ一覧を取得し、特定の文字列を抽出する方法が知りたいです。
• 現在の日付を取得し、デイリーとマンスリーのディレクトリ一覧をテキストファイルに出力する方法も教えていただけると助かります。
• 初心者ですが、ディレクトリ一覧の抽出方法や特定の文字列の抽出方法について詳しい説明をお願いします。

回答No.2

BLUEPIXY

#1の補足を読んで、簡単なサンプルを作ってみました
細部は実際のディレクトリの状況とか
日付の比較で <= （指定日を含む）なのか < (含まない)なのかとか調整して下さい。
----------------------------------------------------------------
'扱うフォルダの構成
'C:\temp\aaa\デイリー\12345\2006年03月 のディレクトリ

Set fso = CreateObject("Scripting.FileSystemObject")

today = Date '今日の日付
firstDay = DateSerial(Year(today),Month(today),1) '今月の１日

Set DirTxtFile = fso.OpenTextFile("ディレクトリ一覧.txt")
Do Until DirTxtFile.AtEndOfStream
aLine = DirTxtFile.ReadLine '一行読み出し
field=split(aLine, "\",-1,1) '"\" で区切られた文字列の分解
If field(3) = "デイリー" Then 'デイリーの時
baseDate = DateAdd("m",-2,firstDay) '２ヶ月前の１日
ElseIf field(3) ="マンスリー" Then
baseDate = DateAdd("yyyy",-2,firstDay) '２年前の１日
End If
'left(field(5),8) で日付部分を取りだし日付にして基準日より小さいか調べる
If DateValue(left(field(5),8)) < baseDate Then
WScript.Echo aLine ' 該当する行の書き出し
End If
Loop
DirTxtFile.Close
----------------------------------------------------------------
実行方法：
cscript //nologo select.vbs > output.txt

補足

BLUEPIXYさん。

こんにちは。
お忙しいところご回答有難うございます。

以下のように実行してみましたが、
エラーとなってしまいました。

＜実行ロジック＞
-------------------------------------------------
'扱うフォルダの構成
'C:\temp\aaa\デイリー\12345\2006年03月 のディレクトリ

Option Explicit

Dim aLine
Dim baseDate
Dim DirTxtFile
Dim field
Dim firstDay
Dim fso
Dim strPath
Dim today

strPath = "D:\bat\dirlist.txt" ' ディレクトリ一覧ファイル
today = Date '今日の日付
firstDay = DateSerial(Year(today),Month(today),1) '今月の１日
Set fso = CreateObject("Scripting.FileSystemObject")
Set DirTxtFile = fso.OpenTextFile(strPath)
Do Until DirTxtFile.AtEndOfStream
aLine = DirTxtFile.ReadLine '一行読み出し
field = split(aLine, "\",-1,1) '"\" で区切られた文字列の分解
If field(3) = "デイリー" Then 'デイリーの時
baseDate = DateAdd("m",-2,firstDay) '２ヶ月前の１日
ElseIf field(3) ="マンスリー" Then
baseDate = DateAdd("yyyy",-2,firstDay) '２年前の１日
End If
'left(field(5),8) で日付部分を取りだし日付にして基準日より小さいか調べる
If DateValue(left(field(5),8)) < baseDate Then
WScript.Echo aLine ' 該当する行の書き出し
End If
Loop
DirTxtFile.Close
----------------------------------------------

＜エラー内容＞
D:\>cscript //nologo test1.vbs > output.txt
D:\060713_001_DiskLaundry.vbs(23, 1) Microsoft VBScript 実行時エラー: インデックスが有効範囲にありま
せん。: '[number: 3]'

23行目（If field(3) = "デイリー" Then 'デイリーの時）が間違っているようですが。。
わからなく困っています。

ご指導願えませんでしょうか。

宜しくお願いいたします。