[ASP] Recursief bestanden zoeken en tellen

[Verwijderd]

Hoi, ik heb een scriptje gemaakt om JPEG bestanden te tellen in een map, inclusief alle onderliggende mappen. Dat is het volgende scriptje:

Visual Basic .NET:

FUNCTION CountJpegRecursive(Folder, InitCount)
  CountJpeg = InitCount
  xThisFolder = Folder & "/"

  SET xMyFolder = FileSystem.GetFolder(Server.MapPath(xThisFolder))

  FOR EACH xSubFolder IN xMyFolder.SubFolders
    IF xSubFolder.Name <> "src" AND xSubFolder.Name <> "template" THEN CountJpeg = CountJpegRecursive(xThisFolder & xSubFolder.Name, CountJpeg)
  NEXT

  FOR EACH xFile IN xMyFolder.Files
    IF LCase(Right(xFile.Name, 4)) = ".jpg" THEN CountJpeg = CountJpeg + 1
  NEXT

  CountJpegRecursive = CountJpeg
END FUNCTION

Het script werkt prima, maar is erg traag. Ik tel op dit moment twee folders met daarin 150 foto's in een stuk of 10 subfolders, en daar doet hij 2 tot 3 seconden over. Het laden van de pagina is dus erg langzaam. Iemand een idee of ik iets fout doe of kan verbeteren?

[Paul C]

Ik ben welliswaar een leek op het gebied van ASP, maar ik zou als ik zelf zo'n probleem had beginnen om op verschillende momenten in je script Debug info te printen in de vorm van een gedetaileerde timestamp, dan kun je precies aflezen wat er traag is aan je script. Als je dat dan weet, dan kun je gericht naar een oplossing zoeken.

[Dysmael]

Enige wat ik kan bedenken is je oplossing in low-level zoeken.
Stukje ASM i.c.m. INT21H of zelfs INT13H
Heel misschien behaal je iets snelheidswinst met C i.p.v. VBScript maar ik betwijfel of dat afdoende verschil zal maken.
DLL van een EXE maken die pre-loaded is scheelt heel misschien ook wel iets inderdaad ;-)

[Alex]

Hoogstwaarschijnlijk is het gebruik van eht fileSystem-object de bottleneck. Probeer eens of je daar niets anders voor kunt vinden, dus bijv die als ref meegeven ipv steeds een nieuwe? Objecten zijn in VbScript _altijd_ zwaar...

[vogeltje]

Recursieve functies staan doorgaans nou ook niet echt bekend als snelheidsmonsters.
Ik zou je functie herschrijven met een normale while-loop en dan nog eens kijken naar de performance.

// ff kort

ASP:

while (current_dir_has_files)
  // testen of het huidige bestand voldoet aan jouw condities
  // waarschijnlijk wil je hier ook controleren of de huidige directory nog sub dir's heeft
  // etc....
wend

Dit is maar een hersenspinsel, succes ermee.

[ Voor 5% gewijzigd door vogeltje op 29-10-2006 17:06 ]

[Verwijderd]

Ik zal eens kijken of ik het in een executable kan stoppen.
En anders helaas maar in een database alles bijhouden.

Het filesystem zou het opzich wel snel moeten kunnen?

[ Voor 19% gewijzigd door Verwijderd op 29-10-2006 17:14 ]

[gorgi_19]

Het filesystem zal wel snel zijn; de koppeling naar FSO zal niet al te vlot zijn, of het componentje zelf.

[Gert]

In plaats van de LCase en Right zou je al GetExtensionName kunnen gebruiken, scheelt alicht wat aangezien string operaties in VBScript traag zijn.
Ook roep je steeds Server.MapPath aan, als je eenmaal weet wat het pad is hoef je dat niet elke keer nog eens te controlleren. Je kan met BuildPath een pad opbouwen.

[pjonk]

Staan de JPG's geserveerd op dezelfde server anders zou het misschien aan een trage netwerkconnectie kunnen liggen.
In ASP heb je voor FileSystemObject geen alternatieven. Wat je wel kunt doen is in VB6 een COM component maken die het werk voor je doet. Zorg ervoor dat je voor het bepalen van de files de FindFirstFile functie uit de WIN32 API gebruikt. Deze is bloedje snel en waarschijnlijk een stuk efficienter dan de GetFolder equivalent van FSO. Hieronder een voorbeeld:
http://www.tutorialized.c...om-Visual-Basic-code/5285

Ondanks de geringe COM overhead heb je een goede kans dat de performance flink wordt verbeterd.

[Xenan]

Zo'n functie zou in een fractie van een seconde klaar kunnen zijn. VBScript is echter zeer traag.

Waarom ASP en niet ASP.NET? Ditzelfde stukje code in C# of VB7 zal veel sneller zijn.

Enige wat ik kan bedenken is je oplossing in low-level zoeken.
Stukje ASM i.c.m. INT21H of zelfs INT13H
Heel misschien behaal je iets snelheidswinst met C i.p.v. VBScript maar ik betwijfel of dat afdoende verschil zal maken.
DLL van een EXE maken die pre-loaded is scheelt heel misschien ook wel iets inderdaad ;-)

Dit is echt onzin. Zo low level hoef je echt niet te gaan. Ik zou haast denken dat je een grapje maakt. Zelf heb ik recursieve functies in C# geschreven die in een seconde ofzo duizenden files genereert, je merkt amper dat je moet wachten.

[Verwijderd]

Hi,

Bedankt voor jullie reacties

> De LCase() en Right() functies kosten misschien wel tijd, maar ik denk om eerlijk te zijn niet dat het probleem vooral door deze functies komen. Ik denk dat, zoals eerder al gezegd, het FileSystemObject de grootste bottleneck is.
> Het gaat niet via het netwerk, dus dat is het niet
> Ik gebruik ASP/VBScript omdat ik daar goed in ben, met ASP.NET ben ik nog te nieuw

Ik zal eens kijken naar de gegeven oplossingen en misschien eens proberen om externe applicatie of COM object te gebruiken. Ik laat het nog wel even weten.