hoi, ik had graag een knop om een map leeg te maken waarvan de files een bepaalde datum hebben .
nu verwijderd deze enkel de files die ouders zijn dan dagen weet iemand een antwoord op mijn probleem?
de lijn in het groen daar zit ik met het probleem
Thx
nu verwijderd deze enkel de files die ouders zijn dan dagen weet iemand een antwoord op mijn probleem?
de lijn in het groen daar zit ik met het probleem
Thx

Code:
Sub test2()
Dim fs, f, fle, pth
pth = "C:\Users\kristin\Documents\test"
'het verwijderen gebeurt vanaf hier:
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(pth)
Set fc = f.Files
For Each fle In fc
If Date - fle.datelastmodified > 10 Then fs.deletefile fle
Next
Dim fs2, f2, fle2, pth2
pth2 = "C:\Users\kristin\Documents\test2"
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set f2 = fs2.GetFolder(pth2)
Set fc2 = f2.Files
For Each fle2 In fc2
[COLOR="#00FF00"] If Date - fle2.Datedatelastmodified = "20 / 2 / 2013" Then fs2.deletefile fle2[/COLOR]
Next
End Sub