Eu uso esta parte de código que copia todos os ficheiros na pasta com os primeiros digitos = ASDFG e data actual
Queria alterar para copiar os ficheiros do mês, como faço?
objF1.DateLastModified = Date(month???)
- Código:
For Each objF1 In objFiles
If Left(objF1.Name, 5) = "ASDFG" And objF1.DateLastModified > Date Then
objFS.CopyFile strFolderPath & objF1.Name, "ArquivoDP308\"
End If
Next
Queria alterar para copiar os ficheiros do mês, como faço?
objF1.DateLastModified = Date(month???)
Última edição por Jitano em 28/11/2011, 11:14, editado 1 vez(es)