elencare solo alcune estensioni

[djjunior]

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

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.

[Roby_72]

strExt = ".jpg|.gif|"

if Instr(Right(strFile.name, Len(strExt)) &"|",strExt) > 0 then

Qualcosa del genere

[djjunior]

Grazie Roby
per il aiuto, ma non fà visionare nessuna delle 2 estensioni!

[Roby_72]

mmm non l'ho provato, fai qualche prova.

Roby

[djjunior]

stò provando in tutti i modi ma niente....