Ir ao conteúdo
  • Cadastre-se

Macro (excel 2010) para mover arquivos de uma pasta para outra


samir.silvas

Posts recomendados

Olá,

Preciso da ajuda de alguém... a macro abaixo é usada para mover apenas arquivos (imagens) não duplicados de uma pasta para outra. Isso ocorre por que tenho diversas imagens que o nome vem acompanhado de uma data + um numero de protocolo, como os numeros de protocolos podem se repetir, essa macro identifica os arquivos com os protocolos duplicados e não os move, apenas o primeiro que ele encontrou.

Esses são os problemas, primeiro o objeto "Application.FileSearch" não está mais funcionando na versão 2010, como faço para corrigir?

Segundo, preciso que ele mova apenas os arquivos mais recentes, ou seja, se ele encontrar arquivos duplicados que seja movido para a outra pasta apenas o arquivo de data mais recente.

Obrigado e aguardo

-->

Private Sub arquivos_duplicados()

Dim Diretorio, TipoArquivo, Propriedade, Comentarios, Extensao, PastaInicial

Dim dbLin As Double

Dim ArquivoAtivo As String

Dim fs

'Dim fs As New FileSystemObject

Dim ultimaFila, fila, contador

Dim linea, NomeArquivo As String

On Error Resume Next

Application.DisplayAlerts = False

PastaInicial = "C:\TESTE\"

tam_past = Len(PastaInicial)

Set fs = Application.FileSearch

With fs

.LookIn = PastaInicial

.Filename = "*.tif"

.SearchSubFolders = True

.Execute

arquivos = .FoundFiles.Count

Dim a, b, c As String

For I = 1 To .FoundFiles.Count

NomeArquivo = fs.FoundFiles.Item(I)

a = Left(NomeArquivo, Len(PastaInicial))

b = Right(NomeArquivo, 13)

Name NomeArquivo As a & b

Next

End With

MsgBox ("Acabou!")

End Sub

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...