[Loop em diretorios]

6 horas atrás, Alyson Ronnan Martins disse:

Bom dia @Fabiano Lopes.

Teria como colocar o erro (aonde ele acontece e a mensagem)?

Tenta também mudar a string para variante:

Dim aaa(1 To 2) As Variant

 

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

1 minuto atrás, Fabiano Lopes disse:

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.

[Loop em diretorios]

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