Lorenzo Pascucci
a- a+

Navighiamo con il browser nelle directory e cartelle del nostro sito

In questa lezione illustriamo come è possibile, attraverso il browser, visualizzare i files che si trovano all'interno delle directory del nostro sito web.

Questo può essere utile per trovare facilmente dei files, modificarli o cancellarli online...

 

Lo script è molto semplice e utilizza l'Oggetto FileSystem per, appunto, prelevare varie informazioni sui file presenti nella directory indicata.

 

Prima di tutto è necessario realizzare la pagina html con il modulo che richiede l'url fisica della directory:

 

Directory (senza "" finale): 

 

<input type=text value="" name="directory">

 

Il codice sopra illustrato lo mettiamo nella pagina dir.asp.

Ora analizziamo il codice vero e proprio che permette di visualizzare i dati sui file presenti in una cartella.


Una volta verificato che si sta richiedendo la visualizzazione di una directory (e quindi non è il primo caricamento della pagina) il buffer viene impostato a TRUE (Vero) nel caso in cui la cartella contenga tanti files, tanto da non finire il processo nel tempo prestabilito (Response.Expires).

 

Viene creata poi un'istanza del FileSystemObject che ci permetterà di avere le informazioni sui files. Infine viene richiesta, attraverso il passaggio di dati dal form, la directory da "leggere".

 

Dopo la visualizzazione con Response.Write "dell'intestazione della tabella" che conterrà i file, viene utilizzato un ciclo FOR che si blocca solo quando ha finito di leggere tutti i files presenti in quella cartella... infine lo script pulisce le variabili e visualizza nuovamente il modulo per visualizzare il contenuto di un'altra cartella.

 

<%@ LANGUAGE=VBScript%>
<%
If Request.QueryString("modo") = "vis" then
'Consigliato TRUE
Response.Buffer = TRUE
'Dichiarazione variabili
Dim objFS,objFolder,objFile
'Istanza creata del FileSystemObject
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'Url della directory
Set objFolder = objFS.GetFolder(Request.Form("directory"))
 

response.write ("<table border=""1"">")
response.write ("<tr><td>FILE</td>")
response.write ("<td>Grandezza</td>")
response.write ("<td>Tipo</td>")
response.write ("<td>Crato</td>")
response.write ("<td>Modificato</td></tr>")
'Visualizza dati files con un ciclo FOR che finisce quando non ci sono più file da visualizzare
For Each objFile In objFolder.Files
'Visualizza nome + estensione del file
response.write ("<tr><td>" & objFile.Name & "</td>")
'Visualizza la grandezza in byte del file
response.write ("<td>" & objFile.Size & "</td>")
'Visualizza il tipo di file
response.write ("<td>" & objFile.Type & "</td>")
'Visualizza la data di creazione del file
response.write ("<td>" & objFile.DateCreated & "</td>")
'Visualizza la data dell'ultima modifica
response.write ("<td>" & objFile.DatelastModified & "</td></tr>")
 

Next
response.write ("</table>")
'Pulisce variabili
Set objFile = Nothing
Set objFolder = Nothing
Set objFS = Nothing
End If
%>

Directory (senza "" finale): 

 

    &lt;input type=text value=&quot;&quot; name=&quot;directory&quot;&gt;

 





Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Sara
Hai dubbi su questo articolo?