eliminar base de datos por fecha

[william_085]

Iniciado por David el Grande

Yo propongo esta solución:

Código:

 
Sub DeleteBackup(ByVal Path 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 FSO.GetFolder(Path & FolderName).DateCreated < Now - 4 Then
            Kill Path & FolderName & "\*.*"
            RmDir Path & FolderName
        End If
    End If
    FolderName = Dir
Loop
End Sub

muchas gracias

este codigo

Código:

DeleteBackup "C:\WINDOWS\Pollo Feliz\Pv Traslados\tickets\"
DeleteBackup "C:\WINDOWS\Pollo Feliz\Pv Traslados\Inventarios\"

donde lo colocaria, y la solucion que tu das david, si me va a eliminar las puras carpetas que necesito que realmete me elimine.??

avellaneda, fijate que yo tambien lo queria hacer asi de en una sola carpeta estuviera todos los respaldos de las bd pero asi me lo pidieron, que a cada respaldo se le creara una carpeta con el nombre del dia y con la fecha