Script ASP per Elencare tutti File e Cartelle in modo Ricorsivo

Il seguente Script in ASP Classic interroga una cartella su disco (nel suo esempio la root “/”) ed elenca tutti i files e le sotto-cartelle contenuti in modo ricorsivo. Non ci sono “limitazioni” a gli annidamenti che il browse può gestire.

Riporto in visione solo la parte “meccanica” :

</pre>
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem

if request.querystring("data") = "" or request.querystring("data") = "/" or request.querystring("data") = "" then
strPath = "/"
Else
appoggio= instr(1,request.querystring("data") ,Session("Utentino"))
if appoggio = 0 then response.redirect ("logout.asp")
strPath = request.querystring("data") & "/"
End if

response.write "<span class=""testo"">Bookmarks - Cartella : <b>" & strPath &"</b>"
response.write "<br>"
response.write "<br>"
%><font face="Verdana" size="1">
<a href="index.asp?data<%= request.querystring("folder")%>=">Torna a Home</a>

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%><center><BR>

<BR>

<TABLE BORDER="1" BORDERCOLOR="003399" CELLSPACING="0" CELLPADDING="2" width="300">
<TR BGCOLOR="#003399">
<TD><div align="center"><font face="Verdana" size="1"><span class="Stile2 Stile6"><FONT COLOR="#FFFFFF">Cartelle:</FONT></span></div></TD>

</TR>
<%

For Each objItem In objFolder.SubFolders
If InStr(1, objItem, "_vti", 1) = 0 Then
%>

<% if objItem.Type = "File Folder" then %>
<TR BGCOLOR="#FFFFFF">
<TD ALIGN="left" ><div align="left">&nbsp; - &nbsp;<font face="Verdana" size="1">
<span class="Stile6 Stile6"><A HREF="index.asp?data<%=request.querystring("folder")%>=<%= strPath & objItem.Name %>"><%= objItem.Name %> (folder)</A></span></div></TD>

</TR>
<% Else %>
<TR BGCOLOR="#FFFFFF">
<TD ALIGN="left" ><div align="left"><&nbsp; - &nbsp;font face="Verdana" size="1">
<span class="Stile6 Stile6"><%= strPath & objItem.Name %>"><%= objItem.Name %></A></span></div></TD>
</TR>
<% End If %>

<%
End If
Next

For Each objItem In objFolder.Files
%>
<% if objItem.Type = "File Folder" then %>

<TR BGCOLOR="#FFFFFF">
<TD ALIGN="left" ><div align="left"><font face="Verdana" size="1"><span class="Stile6 Stile6">
&nbsp; - &nbsp;<A HREF="index.asp?data<%=AreeUtente.Fields.Item("IdAreaRIS").Value%>=<%= strPath & objItem.Name %>"><%= objItem.Name %></A></span></div></TD>
</TR>
<% Else %>

<% if objItem.Name <> "index.asp" then %>
<TR BGCOLOR="#FFFFFF">
<span class="Stile6 Stile6"><%= strPath & objItem.Name %>"><%= objItem.Name %></A></span></div></TD>
</TR>
<% End If %>
<% End If %>

<%
Next 'objItem
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
<pre>

Il file completo può essere scaricato qui : Browse_File_Cartella_Ricorsivo_Asp

Browse Cartella con script ASP, Navighiamo con il browser nelle directory e cartelle, elencare file cartella con script ASP, elencare tutti i files di una cartella in modo ricorsivo con script ASP classic, Come elencare i file di una directory con script ASP, Creare lista di file e cartelle in una cartella, Elencare tutti i file presenti in una cartella con script ASP, Elencare file e sottocartelle di una cartella Script asp