Display Modified Date

[rmcp2k]

Hello,

Can some one help me with a script? I want the script to list all the files/folder modified within the last week and output it into a text file.

files/folders are network shared; //shared/

thank you for your help

 

[dm4ever]

Search for:
FileSystemObject
Recurse
DateLastModified

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[VbsEdit]

Dim fso
Set fso = CreateObject("Scripting.Filesystemobject")

mydate = Now - 7

Set output = fso.CreateTextFile("c:\temp\output.txt",True)
Browse fso.GetFolder("\\myserver\myshare")
output.Close

Sub Browse(folder)
  
  For Each file In folder.Files
    If file.DateLastModified>mydate Then
      output.WriteLine file.path
    End If
  Next
  
  For Each subfolder In folder.SubFolders
    If subfolder.DateLastModified>mydate Then
      output.WriteLine subfolder.path
    End If
    Browse subfolder
  Next
End Sub

Need a good VBScript editor with a debugger? Get VbsEdit