elenco file

[djjunior]

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

<% 

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.

[djjunior]

nessuno può aiutarmi?
Grazie
G.

[djjunior]

mi rispondo solo

<% 

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 
Response.Write("<option value="""&strFile.name&""">"&strFile.name&"</option>") 
end if	
next

Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 

%>