Memo/2004-06-09 のバックアップソース(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
バックアップを表示
Memo/2004-06-09 へ行く。
- 1 (2010-02-27 (土) 14:19:00)
- 2 (2011-12-11 (日) 18:11:21)
- 3 (2011-12-12 (月) 13:15:03)
- 4 (2011-12-12 (月) 16:00:45)
- 5 (2011-12-12 (月) 19:05:10)

#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