'Filelist.vbs Option Explicit Dim lcFolder, oShell, oFolder, oFSO, i,oReportFile,child lcFolder="c:\" 'or lcFolder="\\ComputerName\ShareName" for network PC Set oShell = Createobject ("Shell.Application") Set oFolder = oShell.Namespace (lcFolder) Set oFSO = CreateObject("Scripting.FileSystemObject") Set oReportFile = oFSO.CreateTextFile("c:\outfile.txt", True) For each child in oFolder.Items oReportFile.Write child.name + ", size " & child.size & ", owner "& oFolder.GetDetailsOf (child, 8) & _ ", date modified "& oFolder.GetDetailsOf (child, 3) & ", date created "& oFolder.GetDetailsOf (child, 4) & _ ", date accessed "& oFolder.GetDetailsOf (child, 5) & chr(13) + chr(10) next oReportFile.Close>My boss asked me to: 'find any files that have been written to a folder since yesterday that are bigger than 1 MB so I can go and yell at their owners to remove them'.