Memo/2004-06-09

WSH 関連情報 †

VBScript †

ファイルのリストを表示するプログラム（再帰対応版） †

• サンプルコード
  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