alguien sabe como modificar este script de tal manera que se vean las carpetas y archivos que haya en un directorio??
y que cuando sea carpeta muestre un icono (dibujo.gif) de una carpeta??? y si es un archivo, muestre el tipo de archivo y cuento pesa??
pd: me interesa mas que se vean las carpetas
llevo esto
Código:
<HTML>
<BODY>
<FONT Face="Verdana" SIZE ="2" Color="Blue">
<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("/carpeta-Virtual"))
i=1
For each filefound in MyFiles.files
cmd=chr(34)
Response.Write("" & i & ". <a href="& cmd &"/carpeta-Virtual/" & filefound.Name & cmd &">" & filefound.Name & "</a>")
Response.Write("<BR>")
i=i+1
next
%>
</BODY>
</FONT>
</HTML>
