[Resolvido]Dúvida sobre uso de FSO CopyFile

Caro, peço aos colegas instruções sobre o uso do fso para copiar arquivos de uma pasta de origem selecionando-os pela propriedade de data de criação, ou seja, preciso copiar apenas os criados em uma data específica, desprezando assim os já copiados.

Agradeço desde já qualquer ajuda.

Eduardo Alves


Agradeço o auxílio do Alexandre Neves e encerro o tópico.

também estou tentando fazer buscando 3 meses sobre essa função mas não comigo, também preciso disso.

Boa noite,
caro eduas65, caso tenha conseguido alguma solução compartilhe conosco ai, rs
caso não achou uma solução, fiz esse código. veja se resolve sua necessidade

Código:

Function CopiaFicheiro(fileName As String, pathDirOrigem As String, pathDirDestino As String)
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(pathDirDestino & fileName) Then
    'Debug.Print pathDirDestino & fileName
    fso.CopyFile (pathDirOrigem & fileName), pathDirDestino, True

Else
    MsgBox pathDirDestino & fileName & " existente!", vbExclamation, "Sucesso"
End If

Set fso = Nothing
End Function

'nao esquecer de adicionar as barras invertidas no final do caminho das pastas
'se esquecer ira dar erro
Function copyFileCreatedIn(dataCreated As String, pathDirOrigem As String, pathDirDestino As String)
Dim fso As Object
Dim strPasta As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set strPasta = fso.GetFolder(pathDirOrigem)

For Each arquivo In strPasta.files
    If dataCreated = Format(arquivo.DateCreated, "dd" & "/" & "mm" & "/" & "yyyy") Then
        CopiaFicheiro arquivo.Name, pathDirOrigem, pathDirDestino
    End If

Next arquivo

Set fso = Nothing
Set strPasta = Nothing
End Function


observações para uso:
1 - cole o codigo em um modulo qualquer
2 - chame a função desse jeito:

Código:

call copyFileCreatedIn("25/11/2017","C:\HP 1018\","D:\HP 1018\")


parametro 1 = data de criação do arquivo que vc quer que copie
parametro 2 = pasta de origem dos arquivos. não esquecer barra invertida no final
parametro 3 = pasta de destino dos arquivos. nao esquecer barra invertida no final

todos parametros são formatados de string

boa sorte

Ronaldo, boa tarde. Estava viajando e só agora vou testar / adaptar o código que o Alexandre me enviou, mas lhe adianto e agradeço também a sua colaboração que vou testar também este final de semana.

Grato pela atenção

Eduardo Alves


Sub Copia(Origem As String, Destino As String, DataEscolhida As Date)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' utilize o código livremente mas mantenha os créditos '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim QtCopiados As Integer, objFileSys, objFolder1, objFolder2, Fich As file

If Right(Origem, 1) <> "\" Then Origem = Origem & "\"
If Right(Destino, 1) <> "\" Then Destino = Destino & "\"

Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set objFolder1 = objFileSys.GetDrive(Origem)
Set objFolder2 = objFileSys.GetFolder(Destino)

For Each Fich In objFolder1.Files
If Fich.DateLastModified = DataEscolhida Then
objFileSys.CopyFile objFolder1 & "\" & Fich.Name, objFolder2 & "\" & Fich.Name
QtCopiados = QtCopiados + 1
End If
Next
MsgBox QtCopiados & " ficheiros copiados com data de " & DataEscolhida & vbCr & vbCr & " De: " & Origem & vbCr & "Para: " & Destino
End Sub