Of course there's a way but your requirement represents quite a body of work which is unlikely to be available for free.

Your best recourse would be to find separate scripts to perform each function and then combine their functionality into one script. So start with a domain-walker, then a 'find file' example, then a logging one.

As an example of how a similar thing can be done, look up the MouseTrax domain reporting utility.

I understand. Well I found a script that will locate a file in the "Documents and Settings" directory, but could I replace the filename to search for with something that points to a whole list of filenames? So I can easily add/edit filenames?

The script I have is below.



[hr]
ShowFolderList("C:\Documents and Settings")

Function ShowFolderList(folderspec)
Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
ShowFolderList(f1.path)
ShowFileList(f1.path)
Next
End Function

Function ShowFileList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
if strcomp(f1.name,"error.doc") = 0 then
fso.deletefile f1.path, true
Exit For
Exit Function
end if
Next
End Function

[hr]

Replacing the "error.doc" with a txt file containing a list of files such as:

error.doc
test.txt
program.exe
etc...

Build an array (or dictionary - arrays are so 70s) of the names and then loop through that array/dictionary, calling the relevant function and passing the filename to it.