none
Excel 2010 - Alle Dateien löschen, die älter als 30 Tage sind RRS feed

  • Frage

  • Problem: Aus demgenannten Verzeichnis sollen alle Excel-Dateien gelöscht werden, dere letztes Bearbeitungsdatum mehr als 30 Tage zurückliegt. Jedoch geht das Macro nicht mehr :(, da es Application.FileSearch unter excel 2010 nicht mehr gibt. Was muss ich wie umschreiben?

    StandardModule: Modul1
    Sub DateiLöschen()
       Dim sPath As String
       Dim iCount As Integer, iCounter As Integer
       sPath = Range("B1").Value
       If MsgBox("Sollen die Dateien tatsächlich gelöscht werden?", _
          vbCritical + vbYesNo) = vbNo Then Exit Sub
       iCount = 30
       With Application.FileSearch
          .LookIn = sPath
          .Filename = "*.xls"
          .Execute
          For iCounter = 1 To .FoundFiles.Count
             If FileDateTime(.FoundFiles(iCounter)) + 30 < Date Then
                Kill .FoundFiles(iCounter)
             End If
          Next iCounter
       End With
    End Sub

    Freitag, 15. Juni 2012 09:49

Antworten

Alle Antworten