Ciao a tutti, sto cercando di realizzare uno script che conteggia ed elenca i files .jpg contenuti all'interno di sottocartelle presenti in una determinata directory. Sono riuscito solo in parte a farlo, infatti con lo script che riporto qui sotto riesco ad elencare le sottocartelle ed i file della directory principale, ma non quelli delle sottocartelle.

<%
Set objFso = CreateObject("Scripting.FileSystemObject")
cartella = "/public/fotoalbum/"
Set objFolder = objFso.GetFolder(Server.MapPath(cartella))
Set objSubFolders = objFolder.SubFolders
strExt = ".jpg"

For Each strSubFolder in objSubFolders
Response.Write(strSubFolder.name & "
")
Next
Response.Write("
")
Set files = objFolder.Files

numfile = 0
For Each strFile in files
if Right(strFile.name, Len(strExt)) = strExt then
numfile = (numfile + 1)
Response.Write(strFile.name & " " & strFile.size & "Byte
")
end if
Next
Response.Write ("
Numero di file " & strExt & " presenti : " & numfile)
Set objFso=Nothing
Set objFolder=Nothing
Set objSubFolders=Nothing
Set files=Nothing
%>

Qualcuno mi può aiutare? Grazie.