vb Obtener el número de archivos contenidos en una carpeta

VB puede usar una combinación del control DriveListBox, el control DirListBox y el control FileListBox para ver la cantidad de archivos y carpetas en cualquier carpeta en cualquier disco.

DriveListBox

El control selecciona una unidad de disco válida en tiempo de ejecución. Este control muestra una lista de todas las unidades de disco válidas en el sistema del usuario. Puede crear un cuadro de diálogo que abra un archivo desde cualquier unidad disponible de una lista de archivos de disco.

Control DirListBox,

En tiempo de ejecución, el control DirListBox

muestra directorios y rutas. Este control muestra una lista jerárquica de directorios. Por ejemplo, puede crear un cuadro de diálogo que abra archivos en todos los directorios disponibles desde una lista de archivos.

FileListBox

Cuando se ejecuta el control, localiza y enumera archivos en el directorio especificado por la propiedad Ruta

del control FileListBox

. Este control muestra una lista de archivos del tipo de archivo seleccionado. Por ejemplo, puede crear un cuadro de diálogo en su aplicación que le permita seleccionar un archivo o un grupo de archivos.

El siguiente es el código específico:

Private?Sub?Drive1_Change()

Dir1.Path?=?Drive1.Drive' establece la ruta del directorio.

End?Sub

Private?Sub?Dir1_Change()

File1.Path?=?Dir1.Path' Establece la ruta del archivo.

Texto1?=?File1.ListCount

Texto2?=?Dir1.ListCount

Texto3?=?Val(Texto1)?+?Val(Texto2)

End?Sub

Private?Sub?Form_Load()

Dir1.Path?=?Drive1.Drive 'Establece la ruta del directorio.

File1.Path?=?Dir1.Path' establece la ruta del archivo.

End?Sub

Efecto de implementación: