elenco file minuscoli maiuscoli

[djjunior]

Ciao a tutti, vorrei un Vs. aiuto, utilizzando questo 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 

    %>
	<%  
else
end if
Next	

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

%>

Mi elenca tutti i file jpg presenti su una cartella sul server, ma non mi elenca i file JPG cioè estensione scritta maiuscola, vorrei che mi elencasse i file scritti sia con estensione maiuscola che minuscola, come posso fare?
Grazie
G.

[rotteninside]

devi fare un lcase del nome del file prima di confrontare le estensioni, dovrebbe bastare.

[djjunior]

Grazie per la tua risposta!
Puoi farmi un esempio?
Grazie
G.

[rotteninside]

if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then

http://www.aspdev.org/asp/lcase-asp-vbscript/

[djjunior]

grazie 1000