E aí pessoal.

Estou usando o FyleSystemObjects para percorrer os arquivos de um diretório. Só que eu gostaria de que ele percorresse um folder na rede. Como faço isto?

 

Brigadão,

7Cordas

esta função busca todos os arquivos prw a partir de uma pasta (busca nas subpastas)

 

'Funcionalidade.....: esta sub serve pegar todos os arquivos de projetos que estão na pasta de origem
'Exemplo de uso.....: subPegaArquivos txtPastaOrigem.Text
Private Sub subPegaArquivos(strPastaOrigem As String)
  'Cria instância do FSO
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolderOrigem = objFSO.GetFolder(strPastaOrigem)
  Set objFoldersSubOrig = objFolderOrigem.SubFolders
  'Para cada pasta na coleção de subpastas da pasta origem
  For Each objFolder In objFoldersSubOrig
    'Chama recursivo enquanto tiver subpasta
    subPegaArquivos objFolder.Path
    'Para cada arquivo na coleção de arquivos da pasta
    For Each objFile In objFolder.Files
      'Verifica se o arquivo encontrado é do tipo PRW
      If ((LCase(Right(objFile.Path, 3))) = "prw") Then
        'Atualiza RichTextBox -> lista arquivos processados
        rtbArquivosProcessados.Text = rtbArquivosProcessados.Text & objFile.Path & Chr(13) & Chr(10)
        'Incrementa variável número de arquivos do projeto
        strProjetoNArquivos = strProjetoNArquivos + 1
        'Concatena arquivo na variável de projetos
        strProjetoArquivos = strProjetoArquivos & "         File " & Mid(objFile.Path, 3) & Chr(13) & Chr(10) & "             Type=T" & Chr(13) & Chr(10) & "         End" & Chr(13) & Chr(10)
        'Atualiza labels
        lblLegendas(3).Caption = "Processando arquivo.: " & objFile.Name
        lblLegendas(4).Caption = "Arquivos processados: " & strProjetoNArquivos
        'Atualiza formulário
        Me.Refresh
      End If
    Next
  Next
End Sub