WSH 関連情報

VBScript

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

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

添付ファイル: fileFileList2.vbs 533件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2011-12-12 (月) 20:39:46 (3596d)