Salve

come faccio ad elencare i file di cartelle contenute all'interno di altre cartelle?
Nella cartella UTENTI ho tante cartelle come CODICI FISCALI che al loro interno hanno l'anno (2017).
All'interno dell'anno ho dei file PDF che voglio elencare.

Posto lo script

Dim objFso, objFolder, objSubFolders, strFolder, strSubFolder, strSubFolder1, objFolder1, objsubfolders1
strPath = "/utenti"
Path = "\utenti"



Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objSubFolders = objFolder.SubFolders


For Each strSubFolder in objSubFolders
'response.Write StrSubFolder.name & "<br>"
if len(StrSubFolder.name)=16 then
Set objFolder1 = objFso.GetFolder(Server.MapPath(StrSubFolder.name) )
Set objSubFolder1 = objFolder1.SubFolders
For Each strSubFolder1 in objSubFolder1
response.Write StrSubFolder1.name & "<br>"
Set objFiles = objSubFolder1.Files
For Each strFile in objFiles
Response.Write(strFile.name & "<br />")
Next
Next
end if

Next

Set objFso = Nothing
Set objFolder = Nothing
Set objSubFolders = Nothing

L'errore che mi da è il seguente:

Errore di run-time di Microsoft VBScript error '800a01b6'
Proprietà o metodo non supportati dall'oggetto: 'SubFolders'

e si riferisce alla riga istruzione Set objFiles = objSubFolder1.Files

Qual'è l'errore?