#contents *WSH 関連情報 [#s2cce37e] **VBScript [#rc56e8de] ***ファイルのリストを表示するプログラム(再帰対応版) [#wf457947] -サンプルコード #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 - DImhu1 <a href="http://atmurcijiupi.com/">atmurcijiupi</a>, [url=http://hqgdzoqudcak.com/]hqgdzoqudcak[/url], [link=http://vrqiaadssmtc.com/]vrqiaadssmtc[/link], http://masrbmxamylw.com/ -- [[qrzwcu]] &new{2011-12-11 (日) 18:11:21}; #comment