ricerca file in dir e sottodir

[gguida]

Ciao a tutti ,
la mia esigenza e cercare tutti i file presenti in una dir e in tutte le sue sottodir che corrispondono a una certa stringa.

tra tutti gli esempi suol forum ho tirato fuori il seguente codice ...solo che si ferma al primo livello e non cerca in tutte le sotto dir...qualcuno puo darmi una diritta....

prcs=Session("pathmappato")
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set ft = fso.GetFolder(prcs)

	sw "<table>"
	aa=false 'bool a true x ricerca ok
	For Each ndir in ft.SubFolders
			Set f = fso.GetFolder(prcs&"\"&ndir.Name)
			Set fc = f.Files
		
		 For Each fa in fc
			on error resume next 'se apro un files binario
			tlung=len(fa.name)-4
			 ll=left(lcase(fa.name),tlung)
			imm=timg(right(lcase(fa.name),3))
			if instr(1,ll,request.form("strsrh"),param)<>0 then
				sw "<tr><td><img src=/users_manager/images/" & imm & "></td><td>" & fa.name & "</td></tr>"
				aa=true
			end if
			on error goto 0
		next
	next

grazie..

[Roby_72]

Togli l'on error, forse c'è qualche errore.

Roby

[gguida]

Grazie della risposta...
tolto..cmq a funzionare funziona...però mi trova solo i file presenti nella sottocartella rispetto a quella di partenza....

[Roby_72]

Perché non cicli le cartelle di primo livello, ma solo quelle di quella di partenza.

Roby

[gguida]

hai ragione è solo che mi sto incasinando da stamane....in mezzo ai cicli...e non so come fare...come posso venirne fuori...grazie

[gguida]

... non riesco ad ottenere questa benedetta lista..ho molte sotto dir a quella princiapale....e non so come ottenere la lista completa dei file presenti in tutto l'albero delle cartelle...please help me