>'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 >Yuri