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....
codice:
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..