Newsgroup: it.comp.www.asp
Titolo: Listing dei file in una cartella...aiuto!

Salve...
ho questa pagina asp per fare il listing di file contenuti in una
cartella...
<%
Percorso = Server.MapPath(".")
response.write (percorso)
If Right(Percorso,1) <> "\" then Percorso = Percorso & "\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Percorso)
Set fc = f.Files
Numero_File = 0
FP = ""
DF = ""
For Each whatever in fc
	Nome_File = Trim(LCase(
whatever.name
))
	If Nome_File <> "" Then Numero_File = Numero_File + 1
	' Analizza le estensioni dei file alla ricerca di quelli editabili
	Select Case Right(Nome_File,4)
	Case ".txt"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File di testo<BR>"
	Case ".asp"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "Active Server Page<BR>"
		'Numero_File = Numero_File - 1
	Case ".log"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "Active Server Page<BR>"
		'Numero_File = Numero_File - 1
	Case ".htm", "html"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "Pagina HTML<BR>"
	Case ".exe", ".com"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File di programma<BR>"
	Case ".bat"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File di programma (Batch)<BR>"
	Case ".mdb"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "Database Access<BR>"
	Case ".gif", ".jpg", ".jpeg"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "Immagine GIF/JPEG<BR>"
	Case ".inc"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File di inclusione<BR>"
	Case ".tmp"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File temporaneo<BR>"
	Case ".doc"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "Documento Word<BR>"
	Case ".mp3"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Audio MP3<BR>"
	Case ".tmp"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File temporaneo<BR>"
	Case ".bmp"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Immagine BMP<BR>"
	Case ".ico"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "Icona<BR>"
	Case ".zip"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Winzip (zippato)<BR>"
	Case ".wav"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Audio Windows<BR>"
	Case ".png"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File FireWorks<BR>"
	Case ".fla"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Macromedia Flash Sorgente<BR>"
	Case ".swf"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Macromedia Shock Wave Format<BR>"
	Case ".tmp"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File temporaneo<BR>"
	Case ".inf"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Informazioni d'installazione<BR>"
	Case ".avi"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Video<BR>"
	Case ".mov"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Quick Time<BR>"
	Case ".ram"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Real Player<BR>"
	Case ".eps"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Vettoriale<BR>"
	Case ".xls"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Excel<BR>"
	Case ".ppt"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Power Point<BR>"
	Case ".dwg"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Autocad e simili<BR>"
	Case ".dir"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Director<BR>"
	Case ".pdf"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Acrobat reader<BR>"
	Case ".css"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Documento CSS<BR>"
	Case ".psd"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Photo Shop CSS<BR>"
		Case ".cip"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Cippa (cambiare estensione in txt :) )<BR>"
	Case ".tif"
		FP = FP & Nome_File & "<BR>"
		DF = DF & "File Documento Imaging TIF<BR>"
	Case Else
		FP = FP & Nome_File & "<BR>"
		DF = DF & "Tipo File Sconosciuto<BR>"
	End Select
Next
%>
<body>
<!--#INCLUDE FILE="../../inc/testa.inc"-->
<br>
<div align="center">
<table>
					<tr>
						<td><font face="Arial,Helvetica,sans-serif" size="+1"
color="Navy">Elenco file per il Progetto &nbsp;<% response.write pjn %> -
sezione &nbsp;<% response.write sez%></font></td>
					</tr>
					<tr>
						<td><hr align="center" width="700" size="1" color="Navy" noshade></td>
					</tr>
					<tr>
						<td><font face="Arial,Helvetica,sans-serif" size="+1"
color="Navy">Seleziona un file da scaricare</font></td>
					</tr>
					<tr>
					<td>
						<%If Numero_File = 0 then%>
							<div align="center"><font face="Arial,Helvetica,sans-serif" size="3"
color="Red"><b>Nella directory corrente non sono presenti
file.</b></font></div>
						<%Else
							 If Numero_File = 1 then%>
								<font face="Arial,Helvetica,sans-serif" size="2" color="Navy">E'
stato trovato un solo file: </font><HR>
									<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
										<TR>
											<TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%=FP%></FONT></TD>
											<TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%=DF%></FONT></TD>
										</TR>
									</TABLE>
							<%Else%>
								<font face="Arial,Helvetica,sans-serif" size="2" color="Navy">Sono
stati trovati <%=Numero_File%> File: </font><HR>
									<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100%>
										<TR>
											<TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%=FP%></FONT></TD>
											<TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%=DF%></FONT></TD>
										</TR>
								</TABLE>
						<%End If%>
						<%End If%>
					</td>
					</tr>
</table>
<br>
</div>
Ora pero' vorrei far in modo che i file contenuti nella cartella con
estensione ".asp" non compaiono...
Qualcuno mi puo' aiutare???
Grazie!!
-- 
Posted from 
mail1.webmessenger.it
 [193.70.193.50] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 'Numero_File = Numero_File - 1
ciao
--
Kappa
kappa**nospam**@
webngo.net
www.webngo.net