RWSHARDWARE

Boa tarde Afonso. rapaz, tentei lá do jeito que falou mas deu um erro 52. Nesta parte do código, na variavel arquivo você coloca para unir variavel diretorio com a variavel pasta, as duas não seriam a mesma coisa ? diretorio = "Caminho COMPLETO do ficheiro" pasta = ThisWorkbook.Path arquivo = diretorio & pasta Valeu!

Boa tarde Pessoal!tentei usar este codigo em vba para listar diretorio pasta e arquivos, funciona no meu PC se eu informar o caminho, porém não estou conseguindo fazer isso de uma pasta compartilhada em uma rede interna. Segue abaixo o código, se alguém puder ajudar, será importante para meu aprendizado e também para aplicar lá no meu trabalho. Private Sub UserForm_Initialize() Dim arquivo, pasta As String ListBox1.Clear pasta = ThisWorkbook.Path arquivo = Dir(pasta, vbDirectory) While arquivo <> "" If arquivo <> "*.*" Or arquivo <> "" Or arquivo <> "." Or arquivo <> ".." Then ListBox1.AddItem arquivo arquivo = Dir() Else arquivo = Dir() End If Wend End Sub Valeu!!

Tenho certeza que é possivel elaborar um circuito mais simples usando somente relés para essa finalidade...na proxima eu posto aqui como ...