Leggere files all'interno di directory con ASP

[[trodat]]

Ciao, ho questo codice asp per la visualizzazione di directory e file; il problema è che cliccando su una directory invece di aprire l'elenco dei files in essa contenuti, mi rimanda al link della directory e lo script va in errore, dove sbaglio:?

 Folders


<%
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath("directories/"))

' Lists all the files found in the directory
For each directoryfile in allFiles.subfolders
%>
<% ' Removes certain MSFrontPage was directories 
if right(directoryfile.Name,3) <> "cnf" then %>
<a href="directories/<% =directoryfile.Name %>" target="_blank">
<% =directoryfile.Name %></a>


<% end if %>
<% Next %>


Files


<% ' Lists all the files found in the directory
For each directoryfile in allFiles.files %>
<a href="directories/<% =directoryfile.Name %>">
<% 
ext=right(directoryfile.Name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
[img]directories/images/<%= ext %>.jpg[/img]
<% case else %>
[img]directories/images/unk.jpg[/img]
<% end select %>
<% =directoryfile.Name %></a>


<% Next %>

[santino83]

ma scusa certo che ti apre il link della directory, glielo dici te nel primo href

devi mettere nel href qualcosa del tipo

<a href="pagina_visualizzazione_file.asp?nome_cartella=<%=directoryfile.Name %>" target="_blank">
<% =directoryfile.Name %></a>

[[trodat]]

scusa, ma non ho capito... devo creare una pagina asp che recupera il nome cartella e mi legge i files al suo interno? :master:

[santino83]

allora s eho ben capito:

tu hai una pagina che ti da un elenco di subfolder e un elenco di file. giusto? questo ti si vede almeno?

se tu clicchi su una subfolder, da come hai messo te, ti manda ad una pagina di indirizzo "http://www.tuosito.com/directories/subdirectory" ed è normale che poi non ti si veda nulla

se quello script funziona (non l'ho testato) metti invece di

Set allfiles=directory.getfolder(server.mappath("directories/"))

questo

dim subfolder
subfolder=""
if request.qeurystring("subf")<>"" then
subfolder=request.querystring("subf") & "/"
end if

Set allfiles=directory.getfolder(server.mappath("directories/" & subfolder))

e nel primo href

la_pagina_in_cui_stai.asp?subf=<%= directoryfile.Name %>

però non so se è questo quello che intendevi

[santino83]

to incredibile mi funziona apparte il fatto che avevo scritoo qeurystring invece di querystring.

carino sto script

risolto te?

[santino83]

<%
Set directory=server.createobject("scripting.filesystemobject")
dim subfolder
subfolder=""
if request.querystring("subf")<>"" then
subfolder=request.querystring("subf") & "/"
end if
dim stoin
stoin=subfolder

if request.QueryString("stoin")<>"" then
stoin=request.QueryString("stoin")
Set allfiles=directory.getfolder(server.mappath("directories/" & stoin & subfolder))
else
Set allfiles=directory.getfolder(server.mappath("directories/" & subfolder))
end if
' Lists all the files found in the directory
For each directoryfile in allFiles.subfolders
%>
<% ' Removes certain MSFrontPage was directories 
if right(directoryfile.Name,3) <> "cnf" then %>
<a href="nome-pagina.asp?subf=<%= directoryfile.Name %>&stoin=<%= stoin %>">
<% =directoryfile.Name %></a>


<% end if %>
<% Next %>


Files


<% ' Lists all the files found in the directory
For each directoryfile in allFiles.files %>
<a href="directories/<% =directoryfile.Name %>">
<% 
ext=right(directoryfile.Name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
[img]directories/images/<%= ext %>.jpg[/img]
<% case else %>
[img]directories/images/unk.jpg[/img]
<% end select %>
<% =directoryfile.Name %></a>


<% Next %>

[[trodat]]

Ti ringrazio è quello che volevo, ho solo due problemi:

1) la pagina_in_cui_sto.asp all'inizio recupera un id in querystring ed esegue una query where="&id; quando clicco sulla cartella lo script va in errore perchè non si valorizza l'id;

2) non riesco ad associare l'esatto percorso per aprire il file della sottodirectory.

[santino83]

hai guardato il secondo post che ti ho messo? a me funge tranquillamente

[[trodat]]

Questo è il codice che ho adattato e presenta i problemi che già sai:

Cartelle


<%

id = request.querystring("id")

strSQL = "select * from consistenza_cp where id="&id
set rs = server.createObject("ADODB.Recordset")
rs.open strSQL, cn, 1, 3

cartella = rs("cartella")

Dim objFso, objFolder, objFiles, strFolder, strFile
strPath = cartella
     
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files


dim subfolder
subfolder=""
if request.querystring("subf")<>"" then
subfolder=request.querystring("subf") & "/"
end if

Set objFolderr = objFso.GetFolder(Server.MapPath(strPath &"/"& subfolder))


For each directoryfile in objFolderr.subfolders
%>
<%   
    if right(directoryfile.Name,3) <> "cnf" then %>
[img]images/dir.jpg[/img]
<a href="consistenza.asp?subf=<% =directoryfile.Name %>" target="_blank">
<% =directoryfile.Name %></a>


<% end if %>
<% Next %>


Documentazione


<% 
For each directoryfile in objFolderr.files %>
<a href="<%=strPath%>/<% =directoryfile.Name %>">
<% 
ext=right(directoryfile.Name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
[img]images/<%= ext %>.jpg[/img]
<% case else %>
[img]images/unk.jpg[/img]
<% end select %>
<% =directoryfile.Name %></a>


<% Next 
 
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing

rs.close
cn.Close

set rs = nothing
set cn = Nothing

%>

[santino83]

Cartelle


<%

id = request.querystring("id")



strSQL = "select * from consistenza_cp where id="&id
set rs = server.createObject("ADODB.Recordset")
rs.open strSQL, cn, 1, 3

cartella = rs("cartella")

Dim objFso, objFolder, objFiles, strFolder, strFile
strPath = cartella
     
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files


dim subfolder
subfolder=""
if request.querystring("subf")<>"" then
subfolder=request.querystring("subf") & "/"
end if
dim stoin
stoin=subfolder

if request.QueryString("stoin")<>"" then
stoin=request.QueryString("stoin")
Set objFolderr =directory.getfolder(server.mappath(strPath & "/" & stoin & subfolder))
else
Set objFolderr =directory.getfolder(server.mappath(strPath &"/"& subfolder))
end if


For each directoryfile in objFolderr.subfolders
%>
<%   
    if right(directoryfile.Name,3) <> "cnf" then %>
[img]images/dir.jpg[/img]

<a href="consistenza.asp?subf=<% =directoryfile.Name %>&id=<%= id %>&stoin=<%= stoin %>" target="_blank">
<% =directoryfile.Name %></a>


<% end if %>
<% Next %>


Documentazione


<% 
For each directoryfile in objFolderr.files %>
<a href="<%=strPath%>/<% =directoryfile.Name %>">
<% 
ext=right(directoryfile.Name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
[img]images/<%= ext %>.jpg[/img]
<% case else %>
[img]images/unk.jpg[/img]
<% end select %>
<% =directoryfile.Name %></a>


<% Next 
 
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing

rs.close
cn.Close

set rs = nothing
set cn = Nothing

%>

prova così credo che vada