creazione di un array

daddy lee · 8 Dic 2005

salve a tutti!
ho realizzato uno script che mi legge i nomi di tutti i file contenuti in una cartella e il codice è il seguente (sottointendo la creazione del fso):

riga=""
for Each file in folder.Files
riga = riga & file.name
riga = riga & "#"
next

<html>
<p><%response.write(replace(riga, "#", "<br>"))%></p>

il codice funziona e mi scrive una riga per ogni file contenuto nella cartella specificata.
adesso vorrei poter creare un iperlink verso ogni file contenuto in detta cartella...credo che la strda da prendere sia di popolare un array con il nome di ogni singolo file. ma non so come precedere. me la date 'na mano???
grazie mille a tutti!!!
davide

lukeonweb · 9 Dic 2005

Cosa scrivi di preciso nel file di testo?
La soluzione potrebbe anche essere semplice...

daddy lee · 9 Dic 2005

lo è di sicuro (non per me però...

)
la cartella in questione, contiene un'elenco di file. per evitare di inserire un link verso la cartella, avevo pensato ad uno script che mi leggesse il contenuto della stessa. in detta cartella vi sono solo file di tipo txt.
dopo aver avuto l'elenco dei file, vorrei poterci cliccare su ed aprirli. ma poichè il numero di file contenuti di questa cartella non è fisso, nasce (per me) il problema. a mio avviso, devo popolare un array contenente l'elenco dei file. ma come faccio ad aggiungere un link verso un numero di file che non conosco?
luke....se mi aiuti anche questa volta, a natale ti faccio un regalo!!
ciauz

daviduccio · 10 Dic 2005

<%

Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.MapPath("nomecartella"))
Set file3 = file2.Files
For Each file in file3
response.write("<a href='")
response.write file.name
response.Write("'>")
response.write file.name
response.write("/a>")

Next

%>

Io uso questo, aggiustato per le tue esigenze, eccotelo!

daddy lee · 10 Dic 2005

grazie mille! funziona alla perfezione.
ho fatto qualche piccolo ritocco rendendolo più comprensibile per me.
ho aggiunto una funzione che dovrebbe restituirmi di detti file delle informazioni.
il codice è il seguente, ma non funzia.
<%
dim info

Function ShowFileAccessInfo(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = UCase(filespec) & "<BR>"
s = s & "Data di creazione: " & f.DateCreated & "<BR>"
s = s & "Ultimo accesso: " & f.DateLastAccessed & "<BR>"
s = s & "Ultima modifica: " & f.DateLastModified
ShowFileAccessInfo = s
set fso = nothing
set f = nothing
End Function

Set fso = CreateObject("Scripting.FileSystemObject")
Set strPath = fso.GetFolder(server.MapPath("archivio_log\"))
Set strFile = strPath.Files
For Each file in strFile
response.write("<a href='")
response.write file.name
response.Write("'>")
response.write file.name
response.write("</a>")
response.write("<br>")
info = ShowFileAccessInfo(strFile)

response.write(info)

Next

%>

daviduccio · 10 Dic 2005

Ti ho preparato tutta una pagina:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title></title>
<style type="text/css">

</style></head>

<body>

<p>

</p>
<table width="80%" border="0">
<tr>
<td bgcolor="#F2F2F2">Creazione </td>
<td bgcolor="#F2F2F2">Ultimo Accesso </td>
<td bgcolor="#F2F2F2">Ultima Modifica </td>
</tr>

<%
folder="NOMECARTELLA"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.MapPath(folder))
Set file3 = file2.Files
For Each file in file3
%>
<tr>
<td height="25" colspan="3" bgcolor="#E6E6E6"><strong><a href="<%=folder&"/"&file.name%>" target="_blank"><%=file.name%></a></strong></td>
</tr>
<tr>
<td height="25" bgcolor="#F7F7F7"><%=file.DateCreated%> </td>
<td height="25" bgcolor="#F7F7F7"><%=file.DateLastAccessed%> </td>
<td height="25" bgcolor="#F7F7F7"><%=file.DateLastModified%> </td>
</tr> <%
Next
%>
</table>
<p>

</p>
</body>
</html>

Cerca

Cerca

creazione di un array

daddy lee

Utente Attivo

lukeonweb

Utente Attivo

daddy lee

Utente Attivo

daviduccio

Moderatore

daddy lee

Utente Attivo

daviduccio

Moderatore

Discussioni simili