Carissimi,
non so proprio come implementare a questo script la possibilità di leggere + estensioni, ho provato : strExt = ".jpg, .gif" oppure strExt = ".jpg" & ".gif", ma nulla.

Potete aiutarmi ?
Ecco parte dello script
codice:
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

strPath = "PhotoGallery/PhotoGallery/" & request.form("SubFolders") &"" & request.querystring("SubFolders") &"" 
strExt = ".jpg" 

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

for each strFile in objFiles 
  
    if Right(strFile.name, Len(strExt)) = strExt then
Grazie
G.