Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

265 - Obtener tamaño de un directorio con FileSystemObject

Ejemplo del método GetFolder de FSO y de la colección Folder para obtener atributos de un directorio o carpeta, en este caso para recuperar el tamaño de la misma

vista del formulario de ejemplo

vista del formulario de ejemplo para visualizar el tamaño del directorio elegido en el drivelistbox

En el ejemplo, al seleccionar una carpeta de un control DriveListBox, se llama a la función Get_Size_Directorio, que retorna el tamaño en bytes. A la función hay que pasarle como parámetro la ruta del directorio. Luego se muestra el resultado en el caption del formulario.

Nota: la propiedad para recuperar el tamaño en bytes es la propiedad size de la colección Folder

Colocar en un nuevo proyecto

un Drive1
la referencia a Microsoft Scripting Runtime ( Fso ) desde el menú Referencias de visual basic

Código fuente en el formulario

Option Explicit Private Sub Dir1_Change() Dim Size As Currency Dim Mb As String ' ( Le pasa la ruta ) Size = Get_Size_Directorio(Dir1.Path) Mb = (Size / 1024) / 1024 'Muestra el resultado en el caption del form ( en MB y en bytes ) Me.Caption = FormatNumber(Mb, 2) & " MB " & "( " & CStr(Size) & " bytes )" End Sub ' Función que Retorna el tamaño de la carpeta en bytes Function Get_Size_Directorio(Path As String) As Currency On Error GoTo ErrSub 'Variables para la colección Folder y para FSO Dim Carpeta As Folder Dim O_Carpeta As New FileSystemObject ' Asigna a la colección Folder la carpeta para luego _ consultar los atributos, en este caso el tamaño Set Carpeta = O_Carpeta.GetFolder(Path) 'Retorna el tamaño en megabytes Get_Size_Directorio = Carpeta.Size 'Descarga las variables Set Carpeta = Nothing Set O_Carpeta = Nothing Exit Function ' Error ErrSub: MsgBox Err.Description, vbCritical On Error Resume Next Set Carpeta = Nothing Set O_Carpeta = Nothing End Function

Recursos Vb.Net - Enlaces relacionados

Obtener propiedades y tamaño de archivo en Visual basic.NET

Buscar en Recursos vb