p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

asp_espanol thread: Lectura de Archivos desde Disco


Message #1 by "Roberto Viganotti (Fabi Argentina)" <rviganotti@c...> on Thu, 9 May 2002 09:26:02 -0300
ASP Listeros, buen d=EDa a todos....

Mi pregunta de hoy:

Cual es la mejor forma de presentar el contenido de un directorio , sea 
este
desde el propio servidor web =F3 uno cualquiera desde un filesystem de 
NT al
que se puede acceder desde una LAN.

La idea es poder ver y leer documentos (.doc , .xls =F3 .pdf) desde una 
lista
presentada desde una p=E1gina asp.

Alguien dispone de alg=FAn c=F3digo que sirva para cubrir esta 
necesidad ?.

Gracias desde ya.
=AE 
Message #2 by "Sheila Hernandez" <shiquitta@h...> on Thu, 9 May 2002 14:36:48
Hola Roberto, si lo qe quieres es listar todos los directorios de tu 
disco, aqui te muestro un codigo que lo puede hacer, y si haces click 
sobre el archivo podras entrar al mismo, tambien te muestra el tipo de 
archivo que es, el tamaņo del archivo y la fecha de la ultima 
modificacion, espero te sirva
Saludos, Sheila

<%
Dim strPathInfo, strPhysicalPath
strPathInfo=Request.Servervariables("Path_Info") 
strPhysicalPath=Server.MapPath(strPathInfo) 
Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO=CreateOject("Scripting.FileSystemObject")
Set objFile=objFSO.GetFile(strPhysicalPath)
Set objFolder=objFile.parentFolder
Set objFolderContents=objFolder.Files
%>
<table cellpadding=5>
<tr align=center>
<th align=left>File Name</th>
<th>Type</th>
<th>File Size</th>
<th>Last Modified</th>
</tr>
<%For Each objFileItem in objFolderContents%>
<tr>
<td align=left><a href="<%=objFileItem.Name%>"><%=objFileItem.Name%></a>
</td>
<td align=rigth><%=objFileItem.Type%></td>
<td><%=objFileItem.Size%></td>
<td><%=objFileItem.DateLastModified%></td>
</tr>
<%Next%>
</table>
Message #3 by "Roberto Viganotti (Fabi Argentina)" <rviganotti@c...> on Thu, 9 May 2002 11:52:41 -0300
Gracias Sheila....
Pero opsss.....
Gener=E9 una p=E1gina con el sgte c=F3digo:
-------------------------------------
<%
Dim strPathInfo, strPhysicalPath
strPathInfo=3DRequest.Servervariables("Path_Info")
strPhysicalPath=3DServer.MapPath(strPathInfo)
Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO=3DCreateOject("Scripting.FileSystemObject")
Set objFile=3DobjFSO.GetFile(strPhysicalPath)
Set objFolder=3DobjFile.parentFolder
Set objFolderContents=3DobjFolder.Files
%>
<table cellpadding=3D5>
<tr align=3Dcenter>
<th align=3Dleft>File Name</th>
<th>Type</th>
<th>File Size</th>
<th>Last Modified</th>
</tr>
<%For Each objFileItem in objFolderContents%>
<tr>
<td align=3Dleft><a 
href=3D"<%=3DobjFileItem.Name%>"><%=3DobjFileItem.Name%></a>
</td>
<td align=3Drigth><%=3DobjFileItem.Type%></td>
<td><%=3DobjFileItem.Size%></td> 
<td><%=3DobjFileItem.DateLastModified%></td>
</tr>
<%Next%>
</table>
------------------------------------------
Al ejecutarla arroj=F3 el sgte error:

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[undefined]'

/fabi/data/desarrollo/tree.asp, line 6

------------------------------------------

Saben que puede ocurrir ?.
Gracias.
=AE


  Return to Index