Tutoriales de asp

Contar archivos en asp
Descripcion

El siguiente script cuenta los archivos que hay en una carpeta espesificada



<%
 ** first, set the folder that we want to list
 ** this can also be a value passed from a form
dirname="/users/kathi/asp/samples/tut/"
mypath = "tut/"
Set fso = CreateObject("scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(dirname))
Set filez = folder.Files
FileCount = folder.Files.Count
response.write "<center><font size=1>There are "
response.write "<b><font size=2>"
response.write FileCount & "</b></font>"
response.write " tutorials.</font></center><p>"
For Each listing in filez
    TotalChars = len(listing.name)
    Title = left(listing.name,TotalChars - 4)
    Title = replace(Title,"_"," ")
    response.write "<A HREF=" & mypath
    response.write listing.name
    response.write " class=""menu"" target=""_new"">"
    response.write Title
    response.write "</A><br>"
Next
%>


Autor: S/A

Comentarios en "Contar archivos en asp"

Table 'programa_programas.t_comentarios' doesn't exist