Ho visto che il problema non risiede tanto nell' array, proprio nel costrutto della funzione stessa.

quando si arriva all' ultima cartella, per qualche motivo si passa alla ripetizione dei files ...

Come mai ???

Forzare l' uscita dalla funzione potrebbe essere una via, ma secondo me occorre capire perche' cio' si verifica ...


<%@ Language=VBScript %>
<%
Option Explicit
Dim fso, path, theFolder, theSubfolders, subfolder, theFiles, file
'
function buildTree(theFSO, thePath)
'
set theFolder = theFSO.getFolder(thePath)
set theSubfolders = theFolder.subfolders
for each subfolder in theSubfolders
response.write "dir: " & subfolder.name & "
"
call buildTree(theFSO, subfolder)
next
set theSubfolders = nothing
'
set theFiles = theFolder.files
for each file in theFiles
response.write "file: " & file.name & "
"
next

end function

path = server.mapPath("/path_dir/")
set fso = server.createObject("Scripting.FileSystemObject")
call buildTree(fso, path)
'
set fso = nothing : set theFolder = nothing : set theFiles = nothing
'
'
%>