Listar Arquivos de um Diretório
'### Necessário para utilizar algumas classes envolvidas
Imports System.IO
Dim DirDiretorio As DirectoryInfo = New DirectoryInfo("C:\Temp")
Dim oFileInfoCollection() As FileInfo
Dim oFileInfo As FileInfo
Dim i As Integer
'### Preenche o FileCollection com um Array de objetos FileInfo
oFileInfoCollection = DirDiretorio.GetFiles("*.bmp")
'### Podemos utilizar os objetos da coleção oFileCollection para preencher um ListBox por exemplo
For i = 0 To oFileInfoCollection.Length() - 1
oFileInfo = oFileInfoCollection.GetValue(i)
ListBox.Items.Add(oFileInfo.Name)
Next
Mark Costa (marksouzacosta@hotmail.com)