FSO - LISTAR APENAS UM FORMATO DE ARQUIVO

DANLEONHART 27/02/2011 17:54:14
#366710
Pessoal...

Uso este script para listar tudo que está em certo diretório...
como faço para que liste apenas um tipo especifico ?

Ex: Lista todos arquivos no formato [Ô].txt[Ô] na determinada pasta...

segue script:

Public Sub List_Arq_Dir()
Dim Pasta As Object
Dim ArqExst As Object
Dim Arq As Object
Dim NomeArq As String


Set Pasta = FSO.GetFolder(App.Path)
Set ArqExst = Pasta.Files

Lst1.Clear

For Each Arq In ArqExst
Lst1.AddItem Arq.Name
Next

End Sub
MARCELO.TREZE 27/02/2011 18:02:44
#366711 Resposta escolhida
tenta assim

For Each Arq In ArqExst
 If ((LCase(Right(Arq.Name, 3))) = [Ô]txt[Ô]) Then
Lst1.AddItem Arq.Name
End If
Next
DANLEONHART 27/02/2011 18:41:11
#366713
Valeu [txt-color=#0000f0]MARCELO-TREZE[/txt-color] !

Funfou beleza !
Tópico encerrado , respostas não são mais permitidas
Voltar