Salve,
è possibile inibire la visione dell'estensione durante la paginazione?
da modificare solo alla linea newname, è possibile?
Grazie
G.
codice:
<% 

Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

' Definisci il percorso della cartella da leggere 
strPath = "file/" 
strExt = ".mp3"

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

Response.write("<select name=""canzone"" id=""canzone"">")
Response.Write("<option value=""Seleziona"">Seleziona brano</option>") 
for each strFile in objFiles 
if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then 
newname = strFile.name
Response.Write("<option value="""&strFile.name&""">"&newname&"</option>") 
end if	
next

Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing
Grazie
G.