Ayuda con VBs
Publicado por Petter (3 intervenciones) el 04/11/2015 12:19:51
¡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!
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!
- IMG_20151104_113716.zip(2,7 MB)
Valora esta pregunta
0