Elencare più estensioni in fso

[djjunior]

<%
cartella = "nomecartella"
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

strPath = "" & cartella & "" 
strExt = ".pdf"

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

set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "data", 7 ' Date
custRs.Open
If objFiles.count > 0 then
For Each strFile in objFiles

custRs.AddNew
custRs("nome") = strFile.name
custRs("data") = strFile.DateCreated

next

custRs.Sort = "data Desc"

custRs.movefirst
 
Do until custRs.eof
 
	if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 

    %>
		<%=custRs("nome")%>
	
	<%  
end if

   custRs.movenext
loop

%>