copiar carpeta por fecha

[william_085]

hola amigos, otra duda que me surgio, es que hago una copia de una carpeta cada 24 hrs, pero para evitarme que copie todas las carpetas que estan dentro de otra carpeta, solo quiero copiar la del dia anterior al actual.

yo tengo un programa que me crea su carpeta con el nombre del dia y la fecha y dentro de ella me guarda su base de datos del dia.

la carpeta la creo asi:

.........."C:\WINDOWS\carpeta\Pv Traslados\" + UCase(Format(Date, "dddd ")) + Format(Date, "dd-mm-yy")

y la carpeta me la crea de esta forma, por ejemplo del dia de hoy: MARTES 06-05-08

teniendo esto en cuenta como le podria hacer para que me copie solo la del dia anterior que seria LUNES 05-05-08

uso esto para que me copie la carpeta completa:

ObjFile.CopyFolder "C:\WINDOWS\carpeta\Pv Traslados\*", "c:\Pv Traslados\"




gracia

[David]

Prueba con este código:

Código:

 
Sub CopyBackup(ByVal Path As String, ByVal Destination As String)
On Error Resume Next
Dim SF As Scripting.File
Dim FSO As Object
Set FSO = New Scripting.FileSystemObject
Dim FolderName As String
FolderName = Dir(Path & "*.*", vbDirectory)
Do
    If FolderName = "" Then Exit Do
    If GetAttr(Path & FolderName) = vbDirectory And FolderName <> "." And FolderName <> ".." Then
        If Format(FSO.GetFolder(Path & FolderName).DateCreated, "dd/mm/yyyy") = Format(Now - 1, "dd/mm/yyyy") Then
            FSO.CopyFolder Path & FolderName, Destination
            Set SF = Nothing
            Set FSO = Nothing
            Exit Sub
        End If
    End If
    FolderName = Dir
Loop
End Sub

Esta vez, hice una adaptación del código que había colocado para eliminar las carpetas anteriores a 4 días...
Si te sirve, me avisas.
Saludos

P.S.: Para llamarlo colocas:

Código:

 
CopyBackup "C:\WINDOWS\carpeta\Pv Traslados\", "c:\Pv Traslados\"

[william_085]

gracias por contestar david, pero no me copia la carpeta, no se si tenga que ver que en la carpeta la fecha venga con NOMBRE DEL DIA dd-mm-yyyy y en el codigo que me pasaste viene asi

If Format(FSO.GetFolder(Path & FolderName).DateCreated, "dd/mm/yyyy") = Format(Now - 1, "dd/mm/yyyy") Then

gracias por tu ayuda de nuevo

[David]

Iniciado por william_085

gracias por contestar david, pero no me copia la carpeta, no se si tenga que ver que en la carpeta la fecha venga con NOMBRE DEL DIA dd-mm-yyyy y en el codigo que me pasaste viene asi

If Format(FSO.GetFolder(Path & FolderName).DateCreated, "dd/mm/yyyy") = Format(Now - 1, "dd/mm/yyyy") Then

gracias por tu ayuda de nuevo

El Nombre de la carpeta no tiene mucho que ver, en el código lo que comprobamos es que la fecha en que fue creada sea la de ayer. Si así es, copia la carpeta.
Es raro, a mí me funcionó. ¿Cómo le pasas los parámetros?

[william_085]

tengo el codigo en un timer

If CDate(Format(tiempo, "hh:mm")) = CDate(Format(Data2.Recordset!respaldo, "hh:mm")) Then
CopyBackup "C:\WINDOWS\carpeta\Pv Traslados\tickets\", "c:\Pv Traslados\tickets\"
CopyBackup "C:\WINDOWS\carpeta\Pv Traslados\inventarios\", "c:\Pv Traslados\inventarios\"

DeleteBackup "C:\WINDOWS\Pollo Feliz\Pv Traslados\tickets\"
DeleteBackup "C:\WINDOWS\Pollo Feliz\Pv Traslados\Inventarios\"
Set ObjFile = Nothing
Else
End If

[David]

Iniciado por william_085

tengo el codigo en un timer

If CDate(Format(tiempo, "hh:mm")) = CDate(Format(Data2.Recordset!respaldo, "hh:mm")) Then
CopyBackup "C:\WINDOWS\carpeta\Pv Traslados\tickets\", "c:\Pv Traslados\tickets\"
CopyBackup "C:\WINDOWS\carpeta\Pv Traslados\inventarios\", "c:\Pv Traslados\inventarios\"

DeleteBackup "C:\WINDOWS\Pollo Feliz\Pv Traslados\tickets\"
DeleteBackup "C:\WINDOWS\Pollo Feliz\Pv Traslados\Inventarios\"
Set ObjFile = Nothing
Else
End If

¿Tienes certeza que la carpeta que quieres copiar tiene fecha de ayer?. Selecciona Propiedades en Windows, y mira la fecha donde dice "Creado:"...

[william_085]

si, ya cheque eso tambien y esta como del dia de ayer

[william_085]

ya puse mi maquina un dia despues para que me copie lo de hoy y nada tampoco, quien sabe que este pasando

fijate que puse esto:

fecha_hoy = Format(Date, "dddd ") + Format(Date, "dd-mm-yy")

ObjFile.CopyFolder "C:\WINDOWS\Pollo Feliz\Pv Traslados\tickets\" & fecha_hoy, "c:\Pv Traslados\tickets\"

y este si me copia la carpeta pero solo del dia actual

[David]

Bueno, no sé por qué pero a mí me funciona, lo que puedes intentar es quitar el On Error Resume Next y mirar si no está dando error en alguna parte del código.
(O puedes subir tus carpetas en formato .rar para que pueda descargarlos y probarlo en mi computadora)...

[william_085]

disculpa amigo, ya funciono, fue un error de dedo, muchas gracias