PREGUNTAS CONTESTADAS - Visual Basic

'**********************************************************************************************

'* 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/

'**********************************************************************************************