Ver archivos en un directorio

jhelu · #1 (**permalink**) 13/12/2002, 20:53

Alguien me podra decir donde puedo ver algun script en ASP en donde pueda ver los archivos que hay en un directorio?...

Ejemplo:

En este directorio hay 10 Archivos

Nombre de Archivo Tipo Tamaño
RatasAsp.zip ZIP 32 Kb
Couludo.exe EXE 326598 Kb

es un ejemplo nada mas pero algo asi...

Gracias...

wwwmaster · #2 (**permalink**) 13/12/2002, 22:22

Eso lo haces con el FileSystemObject (FSO), te permite ver directorios, ver archivos, su contenido, copiar, crear directorios, etc. busca ejemplos en www.aspin.com

maestro · #3 (**permalink**) 14/12/2002, 18:26

Aqui tienes todo lo que necesitas:
http://asptutor.com/asp/vart.asp?id=24

Korrikalari · #4 (**permalink**) 16/12/2002, 11:33

Hola jhelu:

Yo utilizo este código para listar los archivos de un directorio:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form name="formulario" action="file.asp" method="post">
<b>Carpeta:</b><input type="text" name="carpeta" value="" size="50">
<input type="submit" name="enviar" value="Mostrar Ficheros">
</form>
<%
if Request.Form("carpeta") <> "" Then
'Se crea un objeto un objeto FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Request.Form("carpeta")) Then
Set objFolder = objFSO.GetFolder(Request.Form("carpeta"))
'Se obtiene la colección Files
Set colFiles = objFolder.Files
If colFiles.Count = 0 then
%>
<b>No hay ficheros en la carpeta <%=Request.Form("carpeta")%></b><br>
<%
Else
%>
<b>Ficheros de la carpeta <%=Request.Form("carpeta")%></b><br>

<%
for Each objFile in colFiles
'Se muestra la información de cada fichero
Response.Write("Nombre: " & objFile.Name & "  ")
Response.Write("Nombre corto: " & objFile.ShortName & "  ")
Response.Write("Tamaño: " & FormatNumber(objFile.Size/1024,0) & " KB<br>")
Response.Write("Tipo: " & objFile.Type & "  ")
Response.Write("Ruta: " & objFile.Path & "  ")
Response.Write("Ruta corta: " & objFile.ShortPath & "<br>")
Response.Write("Creado: " & objFile.DateCreated & "  ")
Response.Write("Modificado: " & objFile.DateLastModified & "  <p>")
next
end if
else
%>
<b>La carpeta <%=Request.Form("carpeta")%> no existe</b>
<%
end if
end if
%>
</BODY>
</HTML>

Espero que te sirva de algo

Korrikalari

jhelu · #5 (**permalink**) 16/12/2002, 12:38

Muchas Gracias Korrikalari...

Me parece perfecto el script, pero al querer mostrar un fichero me dice que no existe....

Como esque funciona este script.. me podras explicar?

Gracias....

maestro · #6 (**permalink**) 16/12/2002, 12:42

Ese codigo no este creado para un sistema de archivos remoto sino para una ruta local, habria que recurrir al SERVER.MAPPATH

jhelu · #7 (**permalink**) 16/12/2002, 14:03

Hola...

Porsupuesto que lo utilizare para ver archivos locales en el server no para ver archivos remotos....

RENZO · #8 (**permalink**) 16/12/2002, 15:25

¿el script se esta ejecutando con los permisos necesarios?
¿que sistema tienes, IIS,XP?

jhelu · #9 (**permalink**) 17/12/2002, 11:54

Windows 2000 Server con IIS 5.0 y si tiene los permisos necesarios