Set fso = CreateObject("Scripting.FileSystemObject") ' Create FileSystemObject Set fld = fso.GetFolder("c:\Windows") ' Get Folder Object Set ficol = fld.Files ' Get Files Collection Set fdcol = fld.SubFolders ' Get Folders Collection WScript.Echo "-- File list --" WScript.Echo "File count = " & ficol.Count For Each f in ficol WScript.Echo "FileName, Size, LastModified : " & f.Name & ", " & f.Size & ", " & f.DateLastModified Next WScript.Echo "-- Folder list --" WScript.Echo "Folder count = " & fdcol.Count For Each f in fdcol WScript.Echo "FolderName, LastModified : " & f.Name & ", " & f.DateLastModified Next Set fdcol = Nothing Set ficol = Nothing Set fld = Nothing Set fso = Nothing