Newsgroup: it.comp.www.asp
Titolo: perche mi fa comparire alcuni file piu di una volta??

Salve a tutti,
ho un bel problema...
utilizzo del codice per far il "listing" di alcuni file in una directory.
Pero' ho un problema... come dice l'oggetto alcuni file compaiono piu' di una
volta!! come mai??
Questo e' il codice che uso:
<%
If Right(cartellaa2,1) <> "\" then Percorso = Percorso & "\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(cartellaa2)
Set fc = f.Files
'conto il numero di file
Numero_File = 0
FP = ""
DF = ""
For Each item in fc
	Nome_File = Trim(LCase(
item.name
))
	If Nome_File <> "" Then Numero_File = Numero_File + 1
	Select Case Right(Nome_File,4)
	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
	End select
Next%>	
<%If Numero_File = 0 then%>
				<tr>
					<td>
						<div align="center"><font face="Arial,Helvetica,sans-serif" size="3"
color="Red"><b>Nella directory corrente non sono presenti
file.</b></font></div>
					</td>
				</tr>
</table>
</div>
</body>
</html>
<%else 
	If Numero_File = 1 then
		FP = ""
		DF = ""%>
<tr>
	<td>
		<font face="Arial,Helvetica,sans-serif" size="2" color="Navy">E' stato
trovato un solo file:</font><hr align="center" width="700" size="1"
color="Navy" noshade>
<%		For Each item in fc
			Nome_File = Trim(LCase(
item.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 = Nome_File 
				DF = "File di testo"
			Case ".asp"
				FP = FP '& Nome_File 
				DF = DF '& "Active Server Page<BR>"
				Numero_File = Numero_File - 1
			Case ".log"
				FP = FP '& Nome_File 
				DF = DF '& "Active Server Page<BR>"
				Numero_File = Numero_File - 1
			Case ".htm", "html"
				FP =  Nome_File 
				DF =  "Pagina HTML"
			Case ".exe", ".com"
				FP = Nome_File 
				DF = "File di programma<BR>"
			Case ".bat"
				FP = Nome_File 
				DF = "File di programma (Batch)<BR>"
			Case ".mdb"
				FP = Nome_File 
				DF = "Database Access<BR>"
			Case ".gif", ".jpg", ".jpeg"
				FP = Nome_File 
				DF = "Immagine GIF/JPEG<BR>"
			Case ".inc"
				FP = Nome_File 
				DF = "File di inclusione<BR>"
			Case ".tmp"
				FP = Nome_File 
				DF = "File temporaneo<BR>"
			Case ".doc"
				FP = Nome_File 
				DF = "Documento Word<BR>"
			Case ".mp3"
				FP = Nome_File 
				DF = "File Audio MP3<BR>"
			Case ".tmp"
				FP = Nome_File 
				DF = "File temporaneo<BR>"
			Case ".bmp"
				FP = Nome_File 
				DF = "File Immagine BMP<BR>"
			Case ".ico"
				FP = Nome_File 
				DF = "Icona<BR>"
			Case ".zip"
				FP = Nome_File 
				DF = "File Winzip (zippato)<BR>"
			Case ".wav"
				FP = Nome_File 
				DF = "File Audio Windows<BR>"
			Case ".png"
				FP = Nome_File 
				DF = "File FireWorks<BR>"
			Case ".fla"
				FP = Nome_File 
				DF = "File Macromedia Flash Sorgente<BR>"
			Case ".swf"
				FP = Nome_File 
				DF = "File Macromedia Shock Wave Format<BR>"
			Case ".tmp"
				FP = Nome_File 
				DF = "File temporaneo<BR>"
			Case ".inf"
				FP = Nome_File 
				DF = "File Informazioni d'installazione<BR>"
			Case ".avi"
				FP = Nome_File 
				DF = "File Video<BR>"
			Case ".mov"
				FP = Nome_File 
				DF = "File Quick Time<BR>"
			Case ".ram"
				FP = Nome_File 
				DF = "File Real Player<BR>"
			Case ".eps"
				FP = Nome_File 
				DF = "File Vettoriale<BR>"
			Case ".xls"
				FP = Nome_File 
				DF = "File Excel<BR>"
			Case ".ppt"
				FP = Nome_File 
				DF = "File Power Point<BR>"
			Case ".dwg"
				FP = Nome_File 
				DF = "File Autocad e simili<BR>"
			Case ".dir"
				FP = Nome_File 
				DF = "File Director<BR>"
			Case ".pdf"
				FP = Nome_File 
				DF = "File Acrobat reader<BR>"
			Case ".css"
				FP = Nome_File 
				DF = "File Documento CSS<BR>"
			Case ".psd"
				FP = Nome_File 
				DF = "File Photo Shop CSS<BR>"
				Case ".cip"
				FP = Nome_File 
				DF = "File Cippa (cambiare estensione in txt :) )<BR>"
			Case ".tif"
				FP = Nome_File 
				DF = "File Documento Imaging TIF<BR>"
			Case Else
				FP = Nome_File 
				DF = "Tipo File Sconosciuto<BR>"
 
			End Select%>
<%			Numero_File = 0%>
		<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
			<TR>
				<td width="100" align="left"><FONT FACE="Arial" SIZE=2><a
href="download.asp?path=<%=cartellaa2%>&file=<%=FP%>"><%=FP%></a></FONT></td>
				<TD ALIGN=LEFT><FONT FACE="Arial" SIZE=2><%=DF%></FONT></TD>
			</TR>
		</TABLE>
	</td>
</tr>
</table>
<%next 
else%>
<tr>
<%
	FP = ""
	DF = ""
	For Each item in fc
		Nome_File = Trim(LCase(
item.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 = Nome_File 
				DF = "File di testo<BR>"
			Case ".asp"
				FP = FP '& Nome_File 
				DF = DF '& "Active Server Page<BR>"
				Numero_File = Numero_File - 1
			Case ".log"
				FP = FP '& Nome_File 
				DF = DF '& "Active Server Page<BR>"
				Numero_File = Numero_File - 1
			Case ".htm", "html"
				FP =  Nome_File 
				DF =  "Pagina HTML<BR>"
			Case ".exe", ".com"
				FP = Nome_File 
				DF = "File di programma<BR>"
			Case ".bat"
				FP = Nome_File 
				DF = "File di programma (Batch)<BR>"
			Case ".mdb"
				FP = Nome_File 
				DF = "Database Access<BR>"
			Case ".gif", ".jpg", ".jpeg"
				FP = Nome_File 
				DF = "Immagine GIF/JPEG<BR>"
			Case ".inc"
				FP = Nome_File 
				DF = "File di inclusione<BR>"
			Case ".tmp"
				FP = Nome_File 
				DF = "File temporaneo<BR>"
			Case ".doc"
				FP = Nome_File 
				DF = "Documento Word<BR>"
			Case ".mp3"
				FP = Nome_File 
				DF = "File Audio MP3<BR>"
			Case ".tmp"
				FP = Nome_File 
				DF = "File temporaneo<BR>"
			Case ".bmp"
				FP = Nome_File 
				DF = "File Immagine BMP<BR>"
			Case ".ico"
				FP = Nome_File 
				DF = "Icona<BR>"
			Case ".zip"
				FP = Nome_File 
				DF = "File Winzip (zippato)<BR>"
			Case ".wav"
				FP = Nome_File 
				DF = "File Audio Windows<BR>"
			Case ".png"
				FP = Nome_File 
				DF = "File FireWorks<BR>"
			Case ".fla"
				FP = Nome_File 
				DF = "File Macromedia Flash Sorgente<BR>"
			Case ".swf"
				FP = Nome_File 
				DF = "File Macromedia Shock Wave Format<BR>"
			Case ".tmp"
				FP = Nome_File 
				DF = "File temporaneo<BR>"
			Case ".inf"
				FP = Nome_File 
				DF = "File Informazioni d'installazione<BR>"
			Case ".avi"
				FP = Nome_File 
				DF = "File Video<BR>"
			Case ".mov"
				FP = Nome_File 
				DF = "File Quick Time<BR>"
			Case ".ram"
				FP = Nome_File 
				DF = "File Real Player<BR>"
			Case ".eps"
				FP = Nome_File 
				DF = "File Vettoriale<BR>"
			Case ".xls"
				FP = Nome_File 
				DF = "File Excel<BR>"
			Case ".ppt"
				FP = Nome_File 
				DF = "File Power Point<BR>"
			Case ".dwg"
				FP = Nome_File 
				DF = "File Autocad e simili<BR>"
			Case ".dir"
				FP = Nome_File 
				DF = "File Director<BR>"
			Case ".pdf"
				FP = Nome_File 
				DF = "File Acrobat reader<BR>"
			Case ".css"
				FP = Nome_File 
				DF = "File Documento CSS<BR>"
			Case ".psd"
				FP = Nome_File 
				DF = "File Photo Shop CSS<BR>"
				Case ".cip"
				FP = Nome_File 
				DF = "File Cippa (cambiare estensione in txt :) )<BR>"
			Case ".tif"
				FP = Nome_File 
				DF = "File Documento Imaging TIF<BR>"
			Case Else
				FP = Nome_File 
				DF = "Tipo File Sconosciuto<BR>"
			End Select%>
			<%			Numero_File = 0%>
									<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=1 WIDTH=100%>
										<TR>
											<td width="70%" align="left"><font face="Arial,Helvetica,sans-serif"
size="2" color="Navy"><a
href="download.asp?path=<%=cartelaa2%>&file=<%=FP%>"><%=FP%></a></FONT></td>
											<td align="center"><font face="Arial,Helvetica,sans-serif" size="2"
color="Navy"><%=DF%></FONT></td>
 
										</TR>
									</TABLE>
								<% next
								end if
								end if
								%>
					</td>
					</tr>
</table><br>
</div>
Spero che qualcuno ci dia un'occhiata e mi posso aiutare.. sono due giorni che
ci sbatto la capa:)
grazie mille
-- 
Posted from  [217.59.60.99] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

ci sbatto la capa:)
e non vedo proprio perche' ce la dovrebbe sbattere qualcun altro al
posto tuo!  343 righe di codice io non le debuggo di sicuro.
estrapola la parte interessante che vediamo.

 wrote in message
news:3b9f930c...@news.ngi.it...

La parte interessante e' questa.. ovviamente il select case lo si puo' saltare
dal controllo...
sembra come se gira piu' volte su uno stello file ma non capisco il perche'
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(cartellaa2)
Set fc = f.Files
'conto il numero di file
Numero_File = 0
FP = ""
DF = ""
For Each item in fc
	Nome_File = Trim(LCase(
item.name
))
	If Nome_File <> "" Then Numero_File = Numero_File + 1
	Select Case Right(Nome_File,4)
	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
	End select
Next%>	



Grazie
