MTM2.com

$dir = '/home/blah/blah';

opendir (DIR, $dir) || die "Can't opendir $dir: $!";
 @ondisk = sort readdir (DIR);
closedir (DIR);

foreach $file (@ondisk) {
  $date = (stat "$dir/$file")[10];
  if ($date [is after 01/10/03]) {
    print "$file";
  }
}

<%

'Declare our FileSystemObject variable
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Declare our folder variable
Dim objFolder

'Now, what is our web's root folder?
Dim strRootFolder
strRootFolder = "C:\Path\Blah\Blah"

'set our folder object to the web root folder
Set objFolder = objFSO.GetFolder(strRootFolder)

 'Declare a file object and a couple variables
Dim objFile
Dim Mydate, ArbDate
Dim iDiff, MyCount
ArbDate = DateSerial(1970, 1, 1)
MyCount = 0

'Now, use a for each...next to loop through the Files collection

For Each objFile in objFolder.Files
  Mydate = FormatDateTime(objFile.DateLastModified, vbShortDate)
  iDiff = DateDiff("m", ArbDate, objFile.DateLastModified)
  if iDiff < 24 And iDiff > -1 then
   Response.Write objFile.Name & " ( " & Mydate & " ) " &iDiff& " <BR>"
   MyCount = MyCount + 1
  end if
Next

   Response.Write MyCount

%>