Neuestes Update einer Site

[Wutz]

Hallo zusammen,

hatte vor zwei Tagen schonmal was zu diesem Thema gepostet. Habe aber jetzt noch Detailfragen.

Folgendes Problem: Von einer Website soll das letzte datelastmodified aller HTML-Seiten ermittelt werden.

Habe dazu Code geschrieben, allerdings weiss ich nicht, wie ich auch durch subfolders itinerieren kann...kann mir da jemand einen Tipp geben? ... Für Vereinfachungen des Codes wäre ich natürlich auch dankbar...

Folgenden Code habe ich:

<%
dim fso
 set fso = Server.CreateObject("Scripting.FileSystemObject")
dim rootFolder
 set rootFolder = fso.GetFolder(Server.MapPath("/apache/htdocs/common/"))
dim subFolders
 set subFolders = rootFolder.SubFolders
dim files
 set files = rootFolder.Files
dim date
 date="1/1/2001"

for each file in files
 if (day(date) =< day(file.datelastmodified) AND month(date) =< month(file.datelastmodified) AND year(date) =< year(file.datelastmodified)) then
  date = formatdatetime(file.datelastmodified, 2)
 end if
next

Response.Write "Last Update: " & day(date) & "-" & monthname(month(date), false) & "-" & year(date) & "<br>"
 set fso = nothing
 set rootFolder = nothing
%>

Dank im Voraus und Gruss,
Wutz