Como Ver-Exportar el tamaño individual de las carpetas de un sha re

Gracias por el script Fernando.

De todas formas también he encontrado un software freeware que funciona muy
bien:

DIRGRAPH 2.0
http://www.spillett.net/~dirgraph/

Gracias y un saludo.

"Fernando Reyes [MS MVP]" escribió:

Mostrar la cita

A ver si te vale este script VBScript. Lo adjunto como txt para evitar los antivirus y lo pego para aquellos que acceden al grupo por web y por tanto no pueden ver los adjunto. El script se lanza con cscript y se puede o no pasar un parámetro de ruta a listar; si no se pasa se lista la ruta actual.

<pego>
'Este Script suma el tamaño de los ficheros que están en la carpeta
'pasada como parámetro y lo muestra; a continuación muestra el
'tamaño ocupado por las subcarpetas (ficheros y subcarpetas contenidas
'en ellas tambien están incluidos) y por último muestra el tamaño ocupado
'por la carpeta, sus archivos y sus subcarpetas.

'El script puede o no recibir como parámetro la carpeta a procesar,
'como ruta local (c:\carpeta) o ruta UNC (\\servidor\carpeta). En caso
'de no recibir el parámetro de carpeta se procesará la del directorio
'actual

'© Fernando Reyes López - Abril de 2006

'Establecemos el directorio actual como directorio a procesar
str_Carpeta = "."

'Si se ha recibido parámetro de directorio se establece éste
'como carpeta a procesar
If WScript.Arguments.Count > 0 Then str_Carpeta = WScript.Arguments(0)

'Mostramos el encabezado de la salida
WScript.Echo "Espacio ocupado por " & str_Carpeta _
& " y sus subcarpetas" & vbCrLF


'Creamos un objeto FileSystem y con él creamos un objeto carpeta con el
'cual accedemos a la carpeta pasada como parámetro
Set obj_FS = CreateObject("Scripting.FileSystemObject")
Set obj_Carpeta = obj_FS.GetFolder(str_Carpeta)


'Ponemos el encabezado con la tabla de resultados
WScript.Echo "Bytes" & Space(15) & "Carpeta"
WScript.Echo _
"———————————————————————————————————————————————————————————————————"

'con este bucle vamos sumando los tamaños de los ficheros contenidos
'por la carpeta pasada como parámetro
For Each obj_Fichero In obj_Carpeta.Files

dbl_Ocupa = dbl_Ocupa + obj_Fichero.Size

Next

'Almacenamos el tamaño total como cadena (lleva separadores de miles)
str_Ocupa = FormatNumber(dbl_Ocupa,0)

'Mostramos el total de los ficheros en la carpeta pasada como parámetro
WScript.Echo str_Ocupa & Space(20 - Len(str_Ocupa)) & str_Carpeta

'En este bucle recorremos las carpetas contenidas por la pasada como
'parámetro
For Each obj_SubCarpeta In obj_Carpeta.SubFolders

'Almacenamos el tamaño de la subcarpeta como cadena
str_OcupaSub = FormatNumber(obj_Subcarpeta.Size,0)

'Mostramos el tamaño de la subcarpeta
WScript.Echo str_OcupaSub & Space(20 - Len(str_OcupaSub)) & _
obj_SubCarpeta.Name

'Sumamos el tamaño al total
dbl_Ocupa = dbl_Ocupa + obj_Subcarpeta.Size

Next

'Mostramos el tamaño total en Bytes, KBytes, MBytes y GBytes
Wscript.Echo vbCrLf & "Total: " & FormatNumber(dbl_Ocupa,0) & " Bytes"
Wscript.Echo Space(7) & FormatNumber(dbl_Ocupa/1024,2) & " KBytes"
Wscript.Echo Space(7) & FormatNumber(dbl_Ocupa/1024/1024,2) & " MBytes"
Wscript.Echo Space(7) & FormatNumber(dbl_Ocupa/1024/1024/1024,2) & " GBytes"
</pego>

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano



Y fue Agudin () quien en el mensaje , planeando sobre su teclado, hizo un picado y tecleó:

> Buenas.
>
> ¿Como puedo ver-exportar a la vez el tamaño individual de 200
> carpetas que tengo en un share?
>
> Con boton derecho,propiedades lo veo pero para no ir una por una.
>
> Un saludo