Carissimi,
questo script legge le cartelle e sotto cartelle, e le elabora in una select, come devo modificarlo per leggere solo i file?
codice:
<% 

Dim objFso, objFolder, objSubFolders, strFolder, strSubFolder 
strPath = "file/" 

Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objSubFolders = objFolder.SubFolders 

Response.write("<select name=""canzoni"" id=""canzoni"">")
Response.Write("<option value=""Seleziona"">Seleziona brano</option>") 
For Each strSubFolder in objSubFolders 
Response.Write("<option value="""&strSubFolder.name&""">"&strSubFolder.name&"</option>") 
Next

Set objFso = Nothing 
Set objFolder = Nothing 
Set objSubFolders = Nothing 
%>
Grazie
G.