none
Como identificar arquivo no diretorio e mover para outro diretorio RRS feed

  • Pergunta

  • Olá pessoal ! Sou iniciante no VBA, mas me deparei com um problema que não consegui resolver. Estou trabalhando em uma macro que transfere dois arquivos .txt de dois diretórios distintos: R - (C:\Users\Desktop\R) e L - (C:\Users\Desktop\L)) para um único diretório: (C:\Users\Desktop\Projeto Importador). O problema está em identificar o nome do arquivo, pois no meu caso o nome consiste da seguinte sequência para o diretório R: R_132004_NOME_500464.. e para o L: L_599334_NOME_59999... Eu queria transferir os arquivos apenas identificando-os pela parte NOME, pois é a única parte fixa em ambos os diretórios(a posição também é fixa), mas não consegui descobrir como fazer isso.

    Exemplo - Eu coloco na coluna A do excel o nome(código) do arquivo que quero transferir (9999) e clico no botão transferir. A macro identifica esse código nos diretórios R e L e transfere os dois arquivos: R_132004_9999_500464....txt e L_9999_NOME_500464...txt para o diretório Projeto Importador - (C:\Users\Desktop\Projeto Importador).

    Se alguém puder me ajudar eu serei grato !

    Obrigado.


    sábado, 28 de janeiro de 2017 23:52

Todas as Respostas

  • Sub Main()
        Dim fso As Object
        Dim Folder As Object
        Dim iFile As Object 'Scripting.File
        
        Set fso = CreateObject("Scripting.FileSystemObject")
        'Mude o caminho do diretório de origem aqui:
        Set Folder = fso.GetFolder("c:\temp\")
        For Each iFile In Folder.Files
            If iFile.Name Like "*Gerar*" Then
                'Mude o caminho do diretório destino aqui:
                iFile.Move "C:\Users\Desktop\Projeto Importador\" & iFile.Name
            End If
        Next iFile
    End Sub
    


    http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

    terça-feira, 31 de janeiro de 2017 16:47
    Moderador