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