Middels VBA bestanden verwijderen ouder dan 1 dag

[longron]

Beste allemaal,

hoe kan ik met VBA in een map alle bestanden verwijderen ouder dan 1 dag?

Public Sub RSVerwijderKopie()
strPath = "H:\Tijdelijk Rooster\"
strFile = Dir(strPath)
  Do While strFile <> RS
   If FileDateTime(strPath & strFile) < Now Then Kill strPath & strFile
     strFile = Dir
  Loop
End Sub

Gebruik ik nu maar ik wil dan dus alleen bestanden ouder dan vandaag verwijdweren.

Thanks voor het meedenken.
Ronald

 

[longron]

en dan ga ik nadenken dan moet het lukken met <now -enzzzzz


moet ik dus wel uitkomen en anders meld ik me weer.

 

[OctaFish]

Now is Datum+Tijd. Zou ik nooit doen, want op het moment dat jij een bestand opslaat, wordt-ie met deze code verwijderd. De eerstvolgende milliseconde zorgt daar namelijk voor. Gebruik, als je op datums wilt filteren, altijd Date.

 

[edmoor]

Zoiets:

Public Sub RSVerwijderKopie()
    Dim fs As Object
    Dim f As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    strpath = "H:\Tijdelijk Rooster\"
    strfile = Dir(strpath)
    
    Do While strfile <> ""
        Set f = fs.GetFile(strpath & strfile)
        If DateDiff("d", f.DateLastModified, Date) > 1 Then Kill strpath & strfile
        strfile = Dir
    Loop
End Sub

Uiteraard test je dat eerst op een map met dummy bestanden.

 

[longron]

Top,

dat werkt goed.
en thanks voor het advies.

Groet

Ronald