leggere i file della cartella senza visionare estensione

[djjunior]

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

<% 

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.

[optime]

se leggi solo .mp3 basterà fare

newname = Replace(strFile.name, ".mp3", "")

that easy!

[djjunior]

grazie 1000