Solved

VBScript that can detect when file(s) to a DIR have been deleted, modified or added.

Posted on 2010-11-09
7
426 Views
Last Modified: 2012-05-10
Hello,

I have been using a vbScript that would create a file which would include the filenames of  any files added to the Directory specified in the vbScript from there last time the vbScript was run . This has been working great but I am now in need of this file (value specified in strReport ) to include the filenames of those files that have:

a) been added to the directory
b) been deleted from the directory
c) been modified in that directory (want to track users that open files and change values in said file and save)

I have the vbScript below. Any thoughts or suggestions would be greatly appreciated.

Thank You

Const ForReading = 1

Const ForWriting = 2

Const ForAppending = 8

 

strFolder = "c:\folder_to_monitor"

strList = "all_current_files.txt"

strReport = "new_files_added_report.txt"

 

Set objOldFiles = CreateObject("Scripting.Dictionary")

objOldFiles.CompareMode = VbTextCompare

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

 

If objFSO.FileExists(strReport) Then

    objFSO.DeleteFile strReport, True

End If

 

If objFSO.FileExists(strList) Then

    Set objList = objFSO.OpenTextFile(strList, ForReading)

    

    Do Until objList.AtEndOfStream

        arrLine = Split(objList.ReadLine, vbTab)

        objOldFiles.Add arrLine(0), arrLine(1)

    Loop

    

    objList.Close

End If

 

Set objList = objFSO.OpenTextFile(strList, ForWriting, True)

Set objFolder = objFSO.GetFolder(strFolder)

 

For Each objFile In objFolder.Files

    strName = objFile.Name

    dtmCreated = objFile.DateCreated

    objList.WriteLine strName & vbTab & dtmCreated

    

    If Not objOldFiles.Exists(strName) Then

        Set objReport = objFSO.OpenTextFile(strReport, ForAppending, True)

        objReport.WriteLine strName & vbTab & dtmCreated

        objReport.Close

    End If

Next

Open in new window

0
Comment
Question by:Charlie_Melega
  • 4
  • 2
7 Comments
 

Author Comment

by:Charlie_Melega
ID: 34098299
To further clarify on this, the primary objective of this vbScript should be to determine if: 1) File has been opened 2) File contents have been changed, line added / removed 3) File has been saved

Thanks for suggestions
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 34101337
the script you have posted indeed log the file that were added to the directory but not since the last run of the script but from the first run of the script.
which means that if no new files were added to the directory, all_current_files.txt still logs them.
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 34101415
tell me of the following meet your requirement:
each time you run the script the log file will be appended with a section which states:


•      time of running the script
•      added files
•      modified  files + DateLastModified
•      accessed files (but not modified) + DateLastAccessed
•      deleted files
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:Charlie_Melega
ID: 34102506
Hello Sedgewick,

Yes, the requirements that you state above are exactly what is needed. However, a NEW log file is created  if and only if one of these conditions has occurred since the last time the script was run.  I do  not want to append an existing file as this will not allow me to identify unique activity since the last run of the script. I have another 3rd party tool that I will be using so the output of the log file will only include the activity you referenced above, in the log file. If no activity has occurred from the last time the script was run, then no log file would be produced or simply an empty log file.

Thanks for your help!!
0
 

Author Comment

by:Charlie_Melega
ID: 34112825
I guess this may not be possible?
0
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 34150203
Hi, was this question answered here:
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_26609153.html

or does this one have different requirements?

Regards,

Rob.
0
 

Author Comment

by:Charlie_Melega
ID: 34241652
Hello Rob,

Yes, you answered the question very nicely in that other post.

Thanks again
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
If you haven’t already, I encourage you to read the first article (http://www.experts-exchange.com/articles/18680/An-Introduction-to-R-Programming-and-R-Studio.html) in my series to gain a basic foundation of R and R Studio.  You will also find the …
The goal of this video is to provide viewers with basic examples to understand and use conditional statements in the C programming language.
The goal of the tutorial is to teach the user how to use functions in C++. The video will cover how to define functions, how to call functions and how to create functions prototypes. Microsoft Visual C++ 2010 Express will be used as a text editor an…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

28 Experts available now in Live!

Get 1:1 Help Now