¡Hola!

Necesito ayuda para desarrollar un script en VBs.

(Lo hago para probar sobre la unidad C:/)

2. OBJETO

Se pretende obtener un informe en html de como esta distribuida la información en los subdirectorios de un directorio particular especificado.

En dicho informe se tiene que presentar para cada subdirectorio, agrupado por extensión
dentro las especificadas como un valor fijo, la siguiente información:

· Número de ficheros de con esa extensión.
· Tamaño ocupado por esos ficheros, en GBs.
· Tiempo medio sin modificar esos ficheros.

El script tiene que estar desarrollado usando el lenguaje de scripting, VBScript, bien documentado, comentado e indentado, es un script para Windows.

El scrip recibe como parámetro el directorio del que realizar un informe.

3. PSEUDOCÓDIGO

El siguiente código pretende ser una guia de como realizar el script.

Definir vector con las extensiones que van a ser buscadas.
Definir vector para almacenar los resultados.
Definir una la función buscarficheros (parámetro directorio, vectorresultadoscarpeta)

Para cada subcarpeta en directorio
buscarficheros (subcarpeta, vectorresultadoscarpeta)
Fin Para

Para cada fichero en directorio
Si la extensión del fichero esta en el vector de extensiones
vectorresultadoscarpeta (extensión). Cuantos = vectorresultadoscarpeta (extensión). Cuantos +1.
vectorresultadoscarpeta (extensión). NuevoElemento (fichero.tamaño, fichero.fecha_modificación)
Fin si

Fin Para

Fin de la función

Para cada subdirectorio en ParametrosdirectorioInicial
vectorresultados.AñadirElementos (subdirectorios)
buscarficheros (subdirectorio, vectorresultados (subdirectorio))
Fin Para

Para cada elemento en vectorresultados
Escribir vectorresultados (elemento) //Nombre del directorio
espaciototal = 0

Para cada extensión en vectorresultados (elemento)
Escribir extensión
Escribir vectorresultados (elemento)(extensión).Cuantos()
Comentario: Calcula el tamaño total para su extensión
Espacioextension = 0
Tiempo = 0

Para cada fichero en vectorresultados (elemento)(extensión)
espacioextensión=espacioextensión + fichero.espacio
tiempo=diasentre(hoy, fichero.fechamodificación)
Fin Para

Escribe "Edad media de los ficheros:" tiempo/vectorresultados (elemento)(extensión).cuantos()
Escribe "La extensión" extensión "ocupa" espacioextensión
espaciototal = espaciototal + espacioextensión

Fin Para
Escribe "Espacio total de la carpeta" espaciototal.
Fin Para

Saludos
¡Muchas gracias!