Fabiano Lopes

Opa, cara não da erro, só não lê a quantidade de txt nos diretorios. Esse código é para contar a quantidade de de arquivos no diretorio. valeuuu No caso, esse array é o nome dos diretorios. Aí eu quero fazer um looping e passar por cada diretorio e contar a quantidade de txt la dentro. Depois salvo dentro da variavel' I ' e tenho a quantidade total.

E aí pessoal, eu tenho um script que lê arquivos, por exemplo txt, num diretório. O que eu preciso é ler estes txt em vários diretórios dentro de um raiz. Pra isso eu fiz um array mas não consigo passar neles. Obrigado pela ajuda. Segue código: Sub A_txt1() Dim pasta As String Dim tpArq As String Dim Arq As String Dim i As Long Dim aaa(1 To 2) As String aaa(1) = "teste1" aaa(2) = "teste2" i = 0 pasta = "C:\Users\Fabiano\Desktop\aaa(i)\" tpArq = "*.txt" Arq = dir(pasta & tpArq, vbDirectory) For i = 1 To 2 While Arq <> "" i = i + 1 Arq = dir() Wend Plan6.Range("c2") = aaa(i) Next i End Sub