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)