copiar archivos por fecha

edson valenzuela
31 de Agosto del 2004
necesito saber si alguien puede darme algun codigo para copiar archivos por fecha porque necesito copiar especificamente algunos archivos que sean genarados solo en un dia y no todos los que esta dentro de la carpeta

sdemingo
31 de Agosto del 2004
Hola,

tendrás que preguntar por cada uno de ellos...

Dim fs As New FileSystemObject
Dim f As File
Dim c As Folder

Set c = fs.GetFolder("D:basura")

For Each f In c.Files
MsgBox f.DateCreated
MsgBox f.DateLastAccessed
MsgBox f.DateLastModified
Next f


con ese código recorres todos los ficheros de una carpeta y muestras sus fechas de creación, modificación y último acceso. Dentro del For deberías preguntar por la fecha que quieras y ya está ;-)

salu2
sdemingo

sdemingo
31 de Agosto del 2004
Así copias todos los archivos de la carpeta d:basura que hayan sido creados a día de hoy

Dim fs As New FileSystemObject
Dim f As File
Dim c As Folder
Dim fecha() As String

Set c = fs.GetFolder("D:basura")

For Each f In c.Files
fecha = Split(f.DateCreated, " ", -1, vbBinaryCompare)
If fecha(0) = Date Then
fs.CopyFile "d:basura" & f.Name, "d:nuevaRuta" & f.Name
End If
Next f

End Sub

salu2
sdemingo