Date Time Stamp

xcopy *.* /D:01-01-2007  /L c:\location >> filename.txt

xcopy - program
*.* - what to look at
/D: - copy name since
/L - only name, no actual copy
c:\location - where to copy to (even though you are not copying)
>> - append results to file
filename.txt - file to append results.


hmm,. this might be the opposite of what you want,..

Dim Fso, Directory, Modified, Files, FSO, objoutputfile
strOutputFile = "c:\scripts\myfile.txt"
strdays = inputbox("Older than how many days?")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = fso.CreateTextFile(strOutputFile, TRUE)
Set Directory = Fso.GetFolder("c:\scripts")
Set Files = Directory.Files
For Each Modified in Files
      If DateDiff("D", Modified.DateLastModified, Now) < strdays Then
            objOutputFile.writeline Modified.DateLastModified & "     " & Modified.name & "     " &  Modified.path
      end if
Next

In Powershell this is one line.
Get-childitem c:\folder -rec | where{$_.LastWriteTime -gt ([datetime]:now).addDays(1)} | foreach{$_.Fullname} | out-file Filename.txt -enc ASCII

whoops.. the 1 should be -1 like
where{$_.LastWriteTime -gt ([datetime]:now).addDays(-1)}

This is the number of days.

this might be useful to others on the web. why not Paq and split?
or do you think there are enough version of this out there already?
curious,.

A change in the specification since the first post, The user wants to receive an automated e-mail message if any file in a specific directory is older than three days.

Forced accept.

Computer101
EE Admin