' FileList.vbs ' Usage : CScript //NoLogo FileList.vbs Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Dim folder Set folder = fso.GetFolder(".") Dim subFolder For Each subFolder In folder.SubFolders WScript.Echo _ subFolder.DateCreated & " " & _ subFolder.DateLastModified & " " & _ subFolder.DateLastAccessed & " " & _ " " & subFolder.Name Next Dim file For Each file In folder.Files WScript.Echo _ file.DateCreated & " " & _ file.DateLastModified & " " & _ file.DateLastAccessed & " " & _ file.Name Next