'**********************************************************************************************
'* atte: Fernando Fumero | [email protected] | http://www.luzyfer666.es.tl/
'**********************************************************************************************
'* En la ventana de objetos, inserta un 'DirListBox" de la barra de herramientas
'*
'* Para poder hacer uso de estas funciones, primero se debe establecer la
'* referencia al "Modelo de objetos FSO" (File System Objects), en el menú princi-
'* pal ingrese a Proyecto/Referencias y seleccione:
'*
'* ----> Microsoft Scripting Runtime
'*
'* Copia el siguiente código
'**********************************************************************************************
Option Explicit
Private Sub Dir1_Change()
Dim VARIABLE_FSO As New FileSystemObject
Dim X_FOLDER As Folder
On Error GoTo HUBO_ERROR ' En caso de folders protegidos contra lectura.
DoEvents
Set X_FOLDER = VARIABLE_FSO.GetFolder(Dir1)
MsgBox "El forder [" & Dir1 & "]" & vbCrLf & vbCrLf & "mide " & Format(X_FOLDER.Size, "#,#") & " bytes.", vbInformation, "Medida en bytes"
Exit Sub
HUBO_ERROR:
MsgBox Err.Number & ": " & Err.Description, vbCritical, "Hubo un error"
End Sub
'*
'* presiona F5 para ejecutar y selecciona los folders del 'DirListBox"
'*
'*
'* Es posible que en un folder que contenga muchos archivos, se produzca alguna demora
'* en mostrar el resultado, mientras esto sucede tu programa se congelará por un tiempo,
'* lógicamente esta demora está directamente relacionada con el desempeño del procesador
'* y velocidad de respuesta del disco donde se seleccionan los folders, ya sabes, lo de siempre...
'*
'**********************************************************************************************
'* atte: Fernando Fumero | [email protected] | http://www.luzyfer666.es.tl/
'**********************************************************************************************
|