Ich hab da was fertiges als VBS http://www.euphoriaschild.darktech.org/index.asp?I=264
Kann man �fter brauchen, als man glaubt, vor allem weil es sich auch leicht anpassen l�sst > -----Urspr�ngliche Nachricht----- > Von: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED]]Im Auftrag von K�nig, Oliver > Gesendet: Freitag, 21. Februar 2003 11:18 > An: '[EMAIL PROTECTED]' > Betreff: [Coffeehouse] AW: [Coffeehouse] RE: [Coffeehouse] Dateien > z�hlen > > > Hallo und Danke! > > Da h�tte ich eigentlich auch selbst drauf kommen k�nnen - aber derzeit > �berarbeite ich hier das Qualit�ts-Management. Nach der 34.212 Erw�hnung > selbigen Wortes ist in meinem Hirn leider nicht mehr viel Platz zum freien > Denken verblieben. *g* > > Danke nochmal f�r's Anschubsen :-) > > Olli > > -----Urspr�ngliche Nachricht----- > Von: Claudius Ceteras [mailto:[EMAIL PROTECTED]] > Gesendet: Freitag, 21. Februar 2003 11:10 > An: [EMAIL PROTECTED] > Betreff: [Coffeehouse] RE: [Coffeehouse] Dateien z�hlen > > > > 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 > ~~~~~~~~~~~~~~~~~~~~~~~~~~~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 ~~~~~~~~~~~~~~~~~~~~~~~~~~~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
