Visual Basic - Ayuda con VBs

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con VBs

Publicado por Petter p.jesusito@gmail.com (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!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con VBs

Publicado por Rafael (65 intervenciones) el 04/11/2015 12:22:21
Tarea????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con VBs

Publicado por Petter (3 intervenciones) el 04/11/2015 12:25:37
Si, me lo han mandado en las practicas de empresa que me tengo que buscar la vida y no me funciona el código que yo realizo, no se que mas puedo hacer.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con VBs

Publicado por Rafael (65 intervenciones) el 04/11/2015 13:51:56
Pues deberias poner el codigo que llevas...
Los errores que presenta ...
Y pues con eso te podemos ayudar.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar