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