- 追加された行はこの色です。
- 削除された行はこの色です。
#contents
*WSH 関連情報
**VBScript
***ファイルのリストを表示するプログラム(再帰対応版)
-サンプルコード
#ref(FileList2.vbs);
' 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
-実行結果
D:\home\edu\VBScript\FileList>CScript //Nologo FileList2.vbs
D:\home\edu\VBScript\FileList のディレクトリ
2004/06/08 17:28:03 2004/06/09 10:30:21 2004/06/09 10:30:22 <DIR> aaa
2004/06/08 17:28:06 2004/06/09 10:24:07 2004/06/09 10:24:07 <DIR> bbb
2004/06/08 17:39:47 2004/06/08 17:39:40 2004/06/09 10:19:32 FileList.vbs
2004/06/09 10:19:34 2004/06/09 10:32:17 2004/06/09 10:32:17 FileList2.vbs
D:\home\edu\VBScript\FileList\aaa のディレクトリ
2004/06/09 10:30:21 2004/06/09 10:30:32 2004/06/09 10:30:32 <DIR> ccc
2004/06/09 10:24:01 2004/06/09 10:24:01 2004/06/09 10:24:01 test.txt
D:\home\edu\VBScript\FileList\aaa\ccc のディレクトリ
2004/06/09 10:30:32 2004/06/09 10:30:32 2004/06/09 10:30:32 test2.txt
D:\home\edu\VBScript\FileList\bbb のディレクトリ
2004/06/09 10:24:07 2004/06/09 10:24:07 2004/06/09 10:24:07 bbb.txt
-はてな
--http://www.hatena.ne.jp/1086743356
-関連情報
--http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?Memo%2F2004-06-08
#comment