file di una directory

[gianniserena]

Ciao a tutti

è possibile far leggereil nome di file presenti in una cartella e mostrarea video la lista di quelli che cominciano con una determinata lettera?

esempio voglio che mi elenchi il nome dei file presenti nella cartella locale, ma solo quelli che cominciano per L

esempio:

Cartella locale contiene:

elenco.asp
pippo.asp
licaone.asp
lepre.asp
limbo.asp

vorrei che mi elencasse a video solo

licaone.asp
lepre.asp
limbo.asp

PENSATE SIA IMPOSSIBILE ?
grazie
gianni

[Roby_72]

Si, con file system object recuperi i file della cartella, e con la LEFT() controlli la prima lettera del nome del file.

Roby

[gianniserena]

non potresti farmi un esempio visto che non sono un mago di asp!

comunque sei veramente un drago
grazie

[Roby_72]

<%
Function ShowFolderList(folderspec)
	Dim fso, f, f1, fc, s, cont
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFolder(folderspec)
	Set fc = f.Files
	cont = 1
	For Each f1 in fc
		if right(f1.name, 3) <> "asp" then
			if left(f1.name,1) = "l" then
				if cont < 10 then cont = "0"& cont		
				s = s & cont &": "& f1.name &"("& f1.datelastmodified &")"
				s = s & VbTab & f1.size/1000000 & " Mb 
"
				cont = cont + 1
			end if
		end if	
   Next
   ShowFolderList = s
End Function

response.Write "<font face=""verdana"" size=""2"">"& ShowFolderList(server.MapPath("./")) &"</font>"
%>

Mettilo nella cartella che contiene i file.

Roby

[gianniserena]

grazie mille !