Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.CreateTextFile[B]("C:\ScriptLog.txt")[/B]
objLogFile.WriteLine "Type~ParentFolder~Name~DateCreated~DateLastModified~DateLastAccessed~Size"
LoopSubFolders objFSO.GetFolder[B]("S:\") [/B]
Sub LoopSubFolders(Folder)
For Each SubFolder in Folder.SubFolders
LoopSubFolders SubFolder
For Each objFile in SubFolder.Files
On Error Resume Next
objLogFile.WriteLine objFile.Type & "~" & _
objFile.ParentFolder & "~" & _
objFile.Name & "~" & _
objFile.DateCreated & "~" & _
objFile.DateLastModified & "~" & _
objFile.DateLastAccessed & "~" & _
objFile.Size
Next
Next
End Sub
MsgBox("Log File completed!")