Memo/2004-06-09
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*WSH 関連情報 [#s2cce37e]
**VBScript [#rc56e8de]
***ファイルのリストを表示するプログラム(再帰対応版) [#w...
-サンプルコード
#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...
D:\home\edu\VBScript\FileList のディレクトリ
2004/06/08 17:28:03 2004/06/09 10:30:21 2004/06/09 10:30...
2004/06/08 17:28:06 2004/06/09 10:24:07 2004/06/09 10:24...
2004/06/08 17:39:47 2004/06/08 17:39:40 2004/06/09 10:19...
2004/06/09 10:19:34 2004/06/09 10:32:17 2004/06/09 10:32...
D:\home\edu\VBScript\FileList\aaa のディレクトリ
2004/06/09 10:30:21 2004/06/09 10:30:32 2004/06/09 10:30...
2004/06/09 10:24:01 2004/06/09 10:24:01 2004/06/09 10:24...
D:\home\edu\VBScript\FileList\aaa\ccc のディレクトリ
2004/06/09 10:30:32 2004/06/09 10:30:32 2004/06/09 10:30...
D:\home\edu\VBScript\FileList\bbb のディレクトリ
2004/06/09 10:24:07 2004/06/09 10:24:07 2004/06/09 10:24...
-はてな
--http://www.hatena.ne.jp/1086743356
-関連情報
--http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?M...
//#comment
終了行:
#contents
*WSH 関連情報 [#s2cce37e]
**VBScript [#rc56e8de]
***ファイルのリストを表示するプログラム(再帰対応版) [#w...
-サンプルコード
#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...
D:\home\edu\VBScript\FileList のディレクトリ
2004/06/08 17:28:03 2004/06/09 10:30:21 2004/06/09 10:30...
2004/06/08 17:28:06 2004/06/09 10:24:07 2004/06/09 10:24...
2004/06/08 17:39:47 2004/06/08 17:39:40 2004/06/09 10:19...
2004/06/09 10:19:34 2004/06/09 10:32:17 2004/06/09 10:32...
D:\home\edu\VBScript\FileList\aaa のディレクトリ
2004/06/09 10:30:21 2004/06/09 10:30:32 2004/06/09 10:30...
2004/06/09 10:24:01 2004/06/09 10:24:01 2004/06/09 10:24...
D:\home\edu\VBScript\FileList\aaa\ccc のディレクトリ
2004/06/09 10:30:32 2004/06/09 10:30:32 2004/06/09 10:30...
D:\home\edu\VBScript\FileList\bbb のディレクトリ
2004/06/09 10:24:07 2004/06/09 10:24:07 2004/06/09 10:24...
-はてな
--http://www.hatena.ne.jp/1086743356
-関連情報
--http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?M...
//#comment
ページ名: