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” :

[php]</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>[/php]

Seguici su:

Google+  Facebook   LinkedIn

Potrebbero Interessarti anche:

Per maggiori informazioni, per suggerimenti e ottenere un preventivo gratuito per le tue esigenze, contatta la nostra Web Agency.
Il nostro staff di professionisti sarà lieto di fornire tutte le informazioni ed i costi riguardanti il servizio.
Attenzione : Webx.it non è un servizio di helpdesk “gratuito” a cui chiedere informazioni circa la soluzione dell’errore e/o la procedura per come risolvere. A seguito di un vostro contatto verrà elaborato un preventivo per un intervento/correzione.

WebMaster Firenze

Oppure, se preferisci, CONTATTACI attravero il modulo presente in questa pagina:

Il tuo nome (richiesto)

La tua email (richiesto)

Telefono

Il tuo messaggio

Dichiaro di avere inserito nel modulo di richiesta dati reali e dichiaro pertanto che tali dati corrispondono ai propri reali dati personali. Sono consapevole che è facoltà di WebX perseguire nelle opportune sedi ogni violazione ed abuso.


Acconsento al trattamento dei dati personali, ai sensi dell'art. 13 del D.lgs. n. 196/2003 [Privacy Policy]

Prova che sei umano selezionando l'icona corrispondente a Cuore.

Fonti : 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