> Hallo Liste,
>
> kann mir jemand nen Tipp geben, wie ich am einfachsten die
> HTML/ASP-Files in
> mehreren Verzeichnissen zusammenz�hlen kann!? Wenn ich im Explorer auf
> Eigenschaften klick, bekomme ich ja auch die Bilder usw.
Rekursiv in die Verzeichnisse mit dem FSO absteigen und jeweils die
Dateien mit bestimmten Endungen addieren...
Achtung pseudocode!!!! FSO-Aufrufe fehlen teilweise
Function fileAnzahl(pfad)
dim anzahl
anzahl = 0
for each subFolder in Folder
anzahl = anzahl + fileAnzahl(subFolder.path)
next
for each file in Folder.Files
if file.endung="asp" then
anzahl = anzahl + 1
end if
next
fileAnzahl = anzahl
End function
Claudius
~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~
Kaffeepause im United Planet Communityserver ...
http://www.intrexx.com/communityserver
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
