vraag je verwijderen

[jo geuens]

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

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

 

[nire]

Het groene deel slaat dan ook helemaal nergens op. Je zou eerder denken dat het iets moet zijn als:
if fle2.datelastmodified = #20/02/2013# then
fs2.deletefile fle2
end if

let op: een datum gebruiken op deze manier #20/02/2013# werkt alleen in VBA

 

[jo geuens]

hallo

wel ik heb je antwoord geprobeerd maar zonder rezultaat

heb nog enkele andere uitgeprobeerd maar op een bepaalde datum een file verwijderen lukt mij nog niet

        Dim fs2, f2, fle2, pth2, date1
     pth2 = "C:\Users\kristin\Documents\test2"
   Set fs2 = CreateObject("Scripting.FileSystemObject")
    Set f2 = fs2.GetFolder(pth2)
    Set fc2 = f2.Files
    date1 = "07/03/2013"
    date2 = Sheets(1).Cells(1, 1)
    For Each fle2 In fc2
    ' If Sheets(1).Cells(1, 1) = Date - fle2.date1 Then fs2.deletefile fle2
     ' If Date - fle2.datelastmodified = date2 Then fs2.deletefile fle2 'datum op blad 1 cel A1
    
       ' If fle2.datelastmodified = date1 Then fs2.deletefile fle2
       ' If fle2.datelastmodified = #7/3/2013# Then fs2.deletefile fle2
        If Date - fle2.datelastmodified = #7/3/2013# Then fs2.deletefile fle2
 'End If
 
    Next
End Sub