Manejo de Unidades de disco, carpetas y archivos.

11B:
Fecha:  Agosto 10 de 2012
Asignatura: Tecnología e Informática.
Formación en Valor: Libertad.
Núcleo Integrador: Manejo de Unidades de disco, carpetas y archivos.
Objetivo: Programar la exploración de unidades y carpetas.


Manejo de Unidades de disco, carpetas y archivos.

Visual Basic 6.0 le permite con una serie de objetos explorar las unidades de disco y mostrar los archivos que contengan las unidades de disco o carpetas.


Objetos a Utilizar:

DriveListBox: Muestra una lista de las unidades de disco del computador como son: Discos duros, USB, CD, etc.


DirListBox: Permite explorar las carpetas, mostrando las subcarpetas que estas contengan.


FileListBox: Muestra los archivos contenidos en una unidad de disco o carpeta.


Image: Muestra imágenes contenidas en el disco.


Taller:

Realice el siguiente diseño de formulario con los objetos anteriores:
Nota: al objeto Image debe cambiarle la propiedad Stretch a TRUE, para que se ajuste al tamaño del objeto cuando se muestra la imagen.

Debe copiar el siguiente código:

'La comilla sencilla al frente del código indica que es un comentario.

'Muestra los archivos al cambiar la carpeta.

Private Sub Dir1_Change()

  File1.Path = Dir1.Path

End Sub

'Al cambiar la unidad de disco muestra que carpetas contiene.

Private Sub Drive1_Change()

  Dir1.Path = Drive1.Drive

End Sub

'Muestra la imagen al dar un clic sobre el archivo de imagen.

Private Sub File1_Click()

  Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)

End Sub

'Al momento de mostrar el formulario le indica al objeto FileListBox 

' que muestre solo los tipos de archivos jpg, bmp y gif 

Private Sub Form_Load()

  File1.Pattern = "*.jpg; *.bmp; *.gif"

End Sub

Ejecute el programa presionando la tecla F5 y explore el disco en busca de imágenes.