COPIAR ARQUIVOS POR DATA

ANDYSARAGIOTTO 05/08/2015 19:34:19
#449649
BOA NOITE AMIGOS
COMO QUE EU FAÇO PARA COPIAR, POR EXEMPLO, TODOS OS ARQUIVOS GERADOS NO MES DE AGOSTO OU QUALQUER OUTRO MES PARA UMA DETERMINADA PASTA?
JABA 05/08/2015 20:51:35
#449651
Dê uma olhadinha nisso:

https://social.technet.microsoft.com/Forums/pt-BR/e5c58e2a-d05f-419e-abb1-02bde955e00d/copia-com-data?forum=scriptadminpt
https://social.technet.microsoft.com/Forums/pt-BR/3ed2eae8-9ebb-4f99-b659-f013acc5dac8/copiar-arquivos?forum=scriptadminpt
ANDYSARAGIOTTO 14/03/2016 19:54:15
#459173
ainda nao consegui fazer uma funcao em vb6 para copiar arquivos de uma determinada pasta para um pendrive por exemplo, seguindo um periodo de data de criacao dos arquivos
por exemplo:
copiar todos os arquivos da pasta X cuja data da criacao seja entre data x e data y para o pendrive E:
KERPLUNK 14/03/2016 20:03:41
#459174
Caramba, você está tentando fazer isso à mais de meio ano e ainda não conseguiu?
ANDYSARAGIOTTO 14/03/2016 20:43:24
#459182
ainda nao, se alguem puder me ajudar agradeco muito
KURTGU 14/03/2016 20:53:03
#459183
Siga o Roteiro

1º Pesquise sobre como Listar arquivos de uma Pasta com sua Propriedades

visualbasicparainiciantes.blogspot.com.br/2011/09/como-obter-informacoes-de-arquivos.html

2º Pesquise sobre Copiar arquivo de um diretorio para o outro
3º Na lista faca um loop que verifique os arquivos de tal data se for = Movimente para a PASTA tal...

Simples assim...
KERPLUNK 14/03/2016 21:05:17
#459185 Resposta escolhida
Bom, você vai usar o File System Object. Ele é quem faz essa parte de seleção de dados. Portanto adicione a referência de [Ô]Microsoft Scripting Runtime[Ô] no seu projeto. O código que faria algo assim seria algo como:

Dim FSO As New FileSystemObject
Dim pasta As Folder
Set pasta = FSO.GetFolder([Ô]C:\downloads[Ô]) [ô]buscando uma pasta qualquer

For Each arquivo In pasta.Files [ô] percorrendo todos os arquivos da pasta
    If Month(arquivo.DateCreated) = 2 Then [ô] se o mês da data de criação do arquivo for [Ô]2[Ô] então
        FileCopy arquivo.Path, [Ô]c:\outra\[Ô] & arquivo.Name [ô] copiar para a pasta [Ô]outra[Ô] com o mesmo  nome
    End If
Next
Tópico encerrado , respostas não são mais permitidas
Voltar