Elencare più estensioni in fso

[djjunior]

Carissimi,
ho uno script per elencare file di una cartella su server tramite l'fso.
Nell'impostazione dell'estensione da visualzzare ho solo un suffisso, cioè il pdf
come posso aggiungere altri, tipo xls o doc etc
Grazie
G.
La parte realtiva all'estensione è:

...
strExt = ".pdf"
...

[Roby_72]

Vediamo la funzione. Dipende da come quella variabile sia "controllata" nello script.

Roby

[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

%>

[Roby_72]

if Right(lcase(custRs("nome")), 3) = "pdf" or _
  Right(lcase(custRs("nome")), 3) = "doc" or _
  Right(lcase(custRs("nome")), 3) = "xls" then
  .....................
  .....................

Roby

[djjunior]

grazie 1000