Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder("c:\") WScript.Echo "TypeName(oFolder) : " & TypeName(oFolder) Set folders_collection = oFolder.SubFolders WScript.Echo "TypeName(folders_collection) : " & TypeName(folders_collection) For Each f in folders_collection WScript.Echo "--------" WScript.Echo "TypeName(f) : " & TypeName(f) WScript.Echo "Path : " & f.Path WScript.Echo "DateCreated : " & f.DateCreated Next