Contar archivos de una web.

Mirate el objeto Scripting.FileSystemObject.
Tiene métodos sencillos para enumerar directorios y ficheros, así
como saber sus propiedades (p. ej. tamaño)
Si estas en intranet y no en un hosting (donde a veces este componente
esta deshabilitado) no tendrás problema para utilizarlo.
Espero que te ayude.

On 11 dic, 22:17, "~jose~" wrote:

Hola, que tal?
Estoy interesado en poner en mi web un código que me cuente todos los
archivos que tengo alojados en la web y también quisiera saber la suma
del tamaño de todos.
No quiero que me cree un listado con todos los archivos y sus tamaños,
quisiera solo que me cuente el numero de archivos y el total de megas.

Gracias, un saludo,
jose

Hola Sergio, gracias por contestar,
lo que pasa es que yo de programación en ASP cero patatero,
yo si no es mucho pedir pido el código completo, o mejor dicho la
página web completa.
Me dá igual si es en html, en asp, php, cgi-bin o cualquier otro
lenguaje, simplemente que me muestre la cantidad de archivos y el total
de megas en mi espacio web.
PD: Me refiero a un espacio web de un hosting y no de una intranet.

Saludos
Sergio ha escrito:

Mirate el objeto Scripting.FileSystemObject.
Tiene métodos sencillos para enumerar directorios y ficheros, así
como saber sus propiedades (p. ej. tamaño)
Si estas en intranet y no en un hosting (donde a veces este componente
esta deshabilitado) no tendrás problema para utilizarlo.
Espero que te ayude.

On 11 dic, 22:17, "~jose~" wrote:
> Hola, que tal?
> Estoy interesado en poner en mi web un código que me cuente todos los
> archivos que tengo alojados en la web y también quisiera saber la suma
> del tamaño de todos.
> No quiero que me cree un listado con todos los archivos y sus tamaños,
> quisiera solo que me cuente el numero de archivos y el total de megas.
>
> Gracias, un saludo,
> jose

Hola

Antes de tirar código, cuelga una página .asp (da igual el nombre) en
tu sitio web, con el siguiente código, y verifica que puedes utilizar
este objeto (es que sino, no me curro el código) ;-)

<%@ LANGUAGE=VBScript %>
<%
Dim objFso
On Error Resume Next
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
Response.Write "Error"
Else
Response.Write "OK"
End
Set objFso = Nothing
%>

Nos cuentas luego.
Un saludo.


~jose~ ha escrito:

Hola Sergio, gracias por contestar,
lo que pasa es que yo de programación en ASP cero patatero,
yo si no es mucho pedir pido el código completo, o mejor dicho la
página web completa.
Me dá igual si es en html, en asp, php, cgi-bin o cualquier otro
lenguaje, simplemente que me muestre la cantidad de archivos y el total
de megas en mi espacio web.
PD: Me refiero a un espacio web de un hosting y no de una intranet.

Saludos
Sergio ha escrito:

> Mirate el objeto Scripting.FileSystemObject.
> Tiene métodos sencillos para enumerar directorios y ficheros, así
> como saber sus propiedades (p. ej. tamaño)
> Si estas en intranet y no en un hosting (donde a veces este componente
> esta deshabilitado) no tendrás problema para utilizarlo.
> Espero que te ayude.
>
> On 11 dic, 22:17, "~jose~" wrote:
> > Hola, que tal?
> > Estoy interesado en poner en mi web un código que me cuente todos los
> > archivos que tengo alojados en la web y también quisiera saber la suma
> > del tamaño de todos.
> > No quiero que me cree un listado con todos los archivos y sus tamaños,
> > quisiera solo que me cuente el numero de archivos y el total de megas.
> >
> > Gracias, un saludo,
> > jose

Hola que tal?
el código que me has mandado me lanzaba error en la linea 9, pero al
sustituir "End" por "End If" me ha funcionado perfectamente, puedes ver
el resultado en www.carpinjose.com/prueba.asp
Te preguntarás que como he sabido solucionarlo habiendo dicho que no
se nada de "ASP" lo que pasa que se un poco (no mucho eh!) de VBE y he
visto que se asemeja.
Sobre lo que pedia necesitaria poder elegir las carpetas a contabilizar
ya que tengo alguna capeta donde hago pruebas y quisera que no se
contaran.

Bueno, un saludo y muchas gracias, vale?


Sergio ha escrito:

Hola

Antes de tirar código, cuelga una página .asp (da igual el nombre) en
tu sitio web, con el siguiente código, y verifica que puedes utilizar
este objeto (es que sino, no me curro el código) ;-)

<%@ LANGUAGE=VBScript %>
<%
Dim objFso
On Error Resume Next
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
Response.Write "Error"
Else
Response.Write "OK"
End
Set objFso = Nothing
%>

Nos cuentas luego.
Un saludo.


~jose~ ha escrito:

> Hola Sergio, gracias por contestar,
> lo que pasa es que yo de programación en ASP cero patatero,
> yo si no es mucho pedir pido el código completo, o mejor dicho la
> página web completa.
> Me dá igual si es en html, en asp, php, cgi-bin o cualquier otro
> lenguaje, simplemente que me muestre la cantidad de archivos y el total
> de megas en mi espacio web.
> PD: Me refiero a un espacio web de un hosting y no de una intranet.
>
> Saludos
> Sergio ha escrito:
>
> > Mirate el objeto Scripting.FileSystemObject.
> > Tiene métodos sencillos para enumerar directorios y ficheros, así
> > como saber sus propiedades (p. ej. tamaño)
> > Si estas en intranet y no en un hosting (donde a veces este componente
> > esta deshabilitado) no tendrás problema para utilizarlo.
> > Espero que te ayude.
> >
> > On 11 dic, 22:17, "~jose~" wrote:
> > > Hola, que tal?
> > > Estoy interesado en poner en mi web un código que me cuente todos los
> > > archivos que tengo alojados en la web y también quisiera saber la suma
> > > del tamaño de todos.
> > > No quiero que me cree un listado con todos los archivos y sus tamaños,
> > > quisiera solo que me cuente el numero de archivos y el total de megas.
> > >
> > > Gracias, un saludo,
> > > jose

Te mando el siguiente código y tienes que tener en cuenta lo
siguiente:

La variable m_strFolderException es una lista de valores separados por
coma con los nombres de las carpetas que no quieras incluir en la
operación. Si son todas, simplemente deja vacía la cadena ""

Es importante que le des una ruta inicial, al estar las páginas
colgadas en un hosting y no saber cual es la ruta exacta, deberías
escribir algo así como Server.MapPath("\"), pero no estoy seguro
porque no tengo en casa un IIS(servidor de páginas web de Microsoft)
para probarlo

Y si falla algo... lo arreglas ;-)

<%@ LANGUAGE=VBScript %>
<%
Dim m_objFso
Dim m_objFolder
Dim m_objSubFolder
Dim m_lngFiles
Dim m_lngFolderSize
Dim m_strFolderException

m_strFolderException = "components,interaction" 'Nombres de carpeta
separados por coma
m_lngFiles = 0
m_lngFolderSize = 0

Set m_objFso = Server.CreateObject("Scripting.FileSystemObject")
Set m_objFolder = m_objFso.GetFolder("C:\Inetpub\iissamples\sdk\asp")
'Ruta carpeta inicial

SetCounters m_objFolder

Response.Write "Tamaño (bytes): " & m_lngFolderSize
Response.Write "Ficheros: " & m_lngFiles

Set m_objFolder = Nothing
Set m_objFso = Nothing

Sub SetCounters(ByVal objFolder)
Dim objFile
Dim objSubFolder

m_lngFiles = m_lngFiles + objFolder.Files.Count
For Each objFile In objFolder.Files
m_lngFolderSize= m_lngFolderSize + objFile.Size
Next
For Each objSubFolder In objFolder.SubFolders
If InStr(1, UCase(m_strFolderException), UCase(objSubFolder.Name)) 0 Then
SetCounters objSubFolder
End If
Next
End Sub
%>

~jose~ ha escrito:

Hola que tal?
el código que me has mandado me lanzaba error en la linea 9, pero al
sustituir "End" por "End If" me ha funcionado perfectamente, puedes ver
el resultado en www.carpinjose.com/prueba.asp
Te preguntarás que como he sabido solucionarlo habiendo dicho que no
se nada de "ASP" lo que pasa que se un poco (no mucho eh!) de VBE y he
visto que se asemeja.
Sobre lo que pedia necesitaria poder elegir las carpetas a contabilizar
ya que tengo alguna capeta donde hago pruebas y quisera que no se
contaran.

Bueno, un saludo y muchas gracias, vale?


Sergio ha escrito:

> Hola
>
> Antes de tirar código, cuelga una página .asp (da igual el nombre) en
> tu sitio web, con el siguiente código, y verifica que puedes utilizar
> este objeto (es que sino, no me curro el código) ;-)
>
> <%@ LANGUAGE=VBScript %>
> <%
> Dim objFso
> On Error Resume Next
> Set objFso = Server.CreateObject("Scripting.FileSystemObject")
> If Err.Number <> 0 Then
> Response.Write "Error"
> Else
> Response.Write "OK"
> End
> Set objFso = Nothing
> %>
>
> Nos cuentas luego.
> Un saludo.
>
>
> ~jose~ ha escrito:
>
> > Hola Sergio, gracias por contestar,
> > lo que pasa es que yo de programación en ASP cero patatero,
> > yo si no es mucho pedir pido el código completo, o mejor dicho la
> > página web completa.
> > Me dá igual si es en html, en asp, php, cgi-bin o cualquier otro
> > lenguaje, simplemente que me muestre la cantidad de archivos y el total
> > de megas en mi espacio web.
> > PD: Me refiero a un espacio web de un hosting y no de una intranet.
> >
> > Saludos
> > Sergio ha escrito:
> >
> > > Mirate el objeto Scripting.FileSystemObject.
> > > Tiene métodos sencillos para enumerar directorios y ficheros, así
> > > como saber sus propiedades (p. ej. tamaño)
> > > Si estas en intranet y no en un hosting (donde a veces este componente
> > > esta deshabilitado) no tendrás problema para utilizarlo.
> > > Espero que te ayude.
> > >
> > > On 11 dic, 22:17, "~jose~" wrote:
> > > > Hola, que tal?
> > > > Estoy interesado en poner en mi web un código que me cuente todos los
> > > > archivos que tengo alojados en la web y también quisiera saber la suma
> > > > del tamaño de todos.
> > > > No quiero que me cree un listado con todos los archivos y sus tamaños,
> > > > quisiera solo que me cuente el numero de archivos y el total de megas.
> > > >
> > > > Gracias, un saludo,
> > > > jose