VBスクリプトに関する再質問です。昨日、以下のハテナに対して、詳細なご回答をいただきました。

こんなんでもいいですかね？

cx20さんのにちょっと手入れています。

----

’ DirList.vbs

’ Usage : CScript //NoLogo DirList.vbs [dir]

’ Default [dir] = .

Dim fs, f, objArgs, str

Set fs = WScript.CreateObject(”Scripting.FileSystemObject”)

’引数が無ければカレントディレクトリ

’あれば第1引数からスキャンする

Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then

str = ”.”

Else

str = objArgs(0)

End If

Set f = fs.GetFolder(str)

ScanFolder f ’フォルダ内の全てのフォルダについて処理する

Sub ScanFolder(f)

Dim subf

For Each subf In f.SubFolders

ScanFolder subf

Next

FileList(f)

End Sub

Sub FileList(folder)

Dim subFolder

For Each subFolder In folder.SubFolders

WScript.Echo _

subFolder.DateCreated & ” ” & _

subFolder.DateLastModified & ” ” & _

subFolder.DateLastAccessed & ” ” & _

”<DIR> ” & subFolder.Name

Next

Dim file

For Each file In folder.Files

WScript.Echo _

file.DateCreated & ” ” & _

file.DateLastModified & ” ” & _

file.DateLastAccessed & ” ” & _

file.Name

Next

end Sub

先の質問と同様に’や”は半角にしないといけませんが。

for /R %i in ( *.* ) do コマンド名 %i

でいいんじゃないでしょうか？(^^;

コマンド名に作ったScript名を入れればOKです

たとえば type を入れるとフォルダ内のファイルを再起的に出力します

↑ソースを添付しておきました。

’ FileList2.vbs

’ Usage : CScript //NoLogo FileList2.vbs

Main

Sub Main

Dim fso

Set fso = CreateObject(”Scripting.FileSystemObject”)

Dim folder

Set folder = fso.GetFolder(”.”)

ShowFolder folder

End Sub

Sub ShowFolder( folder )

WScript.Echo folder.Path & ” のディレクトリ”

Dim subFolder

For Each subFolder In folder.SubFolders

WScript.Echo _

subFolder.DateCreated & ” ” & _

subFolder.DateLastModified & ” ” & _

subFolder.DateLastAccessed & ” ” & _

”<DIR> ” & subFolder.Name

Next

Dim file

For Each file In folder.Files

WScript.Echo _

file.DateCreated & ” ” & _

file.DateLastModified & ” ” & _

file.DateLastAccessed & ” ” & _

file.Name

Next

For Each subFolder In folder.SubFolders

ShowFolder subFolder

Next

End Sub