Gestione file e cartelle

[millennium_y2k]

ho trovato in giro il seguente codice funzionante che mi elenca i file e le sottocarrtelle dentro una cartella di partenza:


mypath = "D:\Documenti\Aziende&Clienti\Clienti\prova"
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(mypath)
response.write ("<table border=""0"">")
response.write ("<tr><td></td><tr>")
response.write ("<tr class=""td""><td></td><td class=testo_1 align=center>Nome</td>")
response.write ("<td class=testo_1 align=center>Tipo</td>")
response.write ("<td class=testo_1 align=center>Creato</td>")
response.write ("<td class=testo_1 align=center>Modificato</td></tr>")
'Visualizza le subfolders
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim unita
Set unita = fso.GetFolder(mypath)
For Each File In unita.SubFolders
response.Write ("<tr class=""td""><td><img src=Dossiers.png width=20px></td><td valign=top nowrap><a href=corpo.asp?cartella=" & File.Name & ">" & File.Name & "</a></td>")
response.write ("<td>" & File.Type & "</td>")
response.write ("<td>" & File.DateCreated & "</td>")
response.write ("<td>" & File.DatelastModified & "</td></tr>")
Next
Set unita = Nothing


'Visualizza dati files con un ciclo FOR che finisce quando non ci sono più file da visualizzare
For Each objFile In objFolder.Files
response.write ("<tr class=""td""><td><img src=doc.png width=20px></td><td valign=top nowrap>" & objFile.Name & "</td>")
response.write ("<td>" & objFile.Type & "</td>")
response.write ("<td>" & objFile.DateCreated & "</td>")
response.write ("<td>" & objFile.DatelastModified & "</td></tr>")
Next
response.write ("</table>")
'Pulisce variabili
Set objFile = Nothing
Set objFolder = Nothing
Set objFS = Nothing
'End If



ora, io voglio che, cliccando su un file, me lo apra.. il problema è che se sono in localhost, il link file:///D:/Documenti/Aziende&Clienti/Clienti/prova/file.doc , non me lo apre...
avevo anceh provato il wexlite, ma, dovendo anche pubblicare su server aruva, aruba li blocca....
aiuti?

[cavicchiandrea]

Potrebbe essere un discorso di sicurezza, prova cosi crei una cartella documenti della la root del sito poi sostituisci
mypath = "D:\Documenti\Aziende&Clienti\Clienti\prova"
con
mypath = "http://localhost/nomesito/documenti/"

[millennium_y2k]

si, lo so che così funziona... ma per alcune necessita, deve rimanere in quel persorso...

è possibile, disabilitanto qualche cosa in iis forse, togliere il controllo??

[millennium_y2k]

nessuna soluzione ?