Ciao e buon anno a tutti.

Ho questo codice ASP che tramite l'oggetto FSO legge le directory, le sottodirectory ed i files che si trovano su un web server.

Il problema è che quando provo a lanciare il link ad uno dei files contenuti nelle directory esplorate lo script risponde che non trova il file, invece il file sul server c'è.... dove sbaglio?

L'errore probabilmente è qui:

Ma come risolvo?

codice:
<%

Function genera()
        If sotto = "" Then
            Response.Write File.Name
        Else
            Response.Write sotto & "\" & File.Name
        End If
End Function

    Dim cartella, sotto
    cartella = Request.QueryString("cartella")
    sotto = Request.QueryString("sotto")
    Dim fso, percorso
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    
    percorso = "D:\" & cartella & "\" & sotto

    For Each File in fso.GetFolder(percorso).SubFolders

%>

<%=File.Name%>

    Next

    For Each File in fso.GetFolder(percorso).Files
%>

" target="_blank"><%=File.Name%>

<%
    Next

    Set fso = Nothing
%>